ccccccccccce Lk IIIIII11 UUU UUU TTTTTTTTTTTTTTT CLt 
cccccccccccc LLL III1I111 UUU UUU TTTTTTTTTTTTTTT LLet 
cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
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**F ILE**1D**JBCCMDPRS 
JJ B88B ccccccce cccccccc MM MM DDDDDDDD PPPPPPPP RRRRRRRR SSSSSSSS 
JJ ccccccce cccccccc MM MM DDDDDDDD PPPPPPPP RRRRRRRR SSSSSSSS 
JJ BB CC cc MMMM MMMM DD DD PP PP RR RR SS 
JJ 8B BB CC cc MMMM MMMM «DD DD PP PP RR RR SS 
JJ 8B BB CC cc MM MM MM «ODD DD PP PP RR RR SS 
JJ 8B BB CC cc MM MM MM «ODD DD PP PP RR RR SS 
JJ 688888888 cc cc MM MM DD DD PPPPPPPP RRRRRRRR SSSSSS 
JJ 688888888 cc cc MM MM DD DD PPPPPPPP RRRRRRRR SSSSSS 
JJ JJ 688 BB CC cc MM MM DD DD PP RR RR SS 
JJ JJ 6B BB CC cc MM MM DD DD PP RR RR SS 
JJ JJ 88 BB CC cc MM DD DD PP RR RR SS eeee 
JJ JJ 68 BB CC cc MM MM DD DD PP RR RR SS eeee 
JIJIIJ BBBBB88B cccccccc cccccccc MM MM DDDDDDDD PP RR RR SSSSSSSS eee 
JIJIJJ BBBBBBEB cccccccc Ccccccccc MM MM DDDDDDDD PP RR RR SSSSSSSS eeee 
LL III SSSSSSSS 
LL HII SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] $$ 
LL I] SS 
LL I] SS 
LELLLLLLLL III! SSSSSSSS 
LLLLLLLLLL HII SSSSSSSS 


BEGIN 
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'e 

'e COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGIT QUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH E RMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


we 
® 
i 
® 
® 
® 
fy 
a 
® 
® 
ie TRANSFERRED. * 
® 
® 
® 
® 
® 
® 
® 
® 
® 
* 
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JBCCMDPRS Job Controller Command Parsing Utilities 16-Sep-1984 00:09: AX-11 Bliss-32 V4.0-74 P 1 
° easee 1 3be FOiB8i48 — FAMTUT Sk isgs ge Me sOc78s. a 
1 MODULE JBCCMDPRS(ZTITLE +4 gengrotler Command Parsing Utilities’ 
¢ fe = *v04-000' , 
5 


tt 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


:# CORPORATION. 


i DIGITAL ASSUMES NO RESPONSIB 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
:# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'@ 
LaRRRAAAAAAAAAAAAAAAAA AAA AEAA AAA AEEEEAEEEAAREEEEREERERERAREREEE 


WN "SO OBNAUESWN SO ODNOUES WN OOONOUSwN 
toto tatatetatatatatatatatatatotatotatatat=to) 


IAI AIR RORononononononony 2 = 


a ea ee ey YS Sy 


4 
: 
0 
: 
4 
5 
6 
7 
8 
+ ! 
% !o+ 
3 ! FACILITY: 
tt : Queue manipulation commands. 
5 0035 1 | ABSTRACT: 
0036 : This module contains common qualifier parsing routines for the queue 
38 st 44 manipulation commands. 
9 $039 i ENVIRONMENT: 
40 0040 ! VAX/VMS user mode. 
a ae 
‘§ ‘3 AUTHOR: M. Jack, CREATION DATE: 30-Apr-1982 
45 5 MODIFIED BY: 
re] 5 i v03-101 JAKO220 J A Krycka 20-Jul-1984 
$8 3 : Add support for new qualifiers. 
0 050 1! v03-009 MLJ0118 Martin. L. Jack, 23-Aug-1983 
1 33 : Change names to track SSJCDEF. 
g 25 i v03-007 LMP0140 L. Mark Pilant 23-Aug-1983 
: 33 ; Add support for alphanumeric Uics. 
6 36 i V03-007 MLJ0115 Martin L. Jack, 30-Jul-1983 
57 5 : Changes for job controller baselevel. 
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Job Controller Command Parsing Utilities ep- 8 AX-11 Bliss-32 V4. Page 2. 
. g-gee) 3b 99: BB: if CLIUTL.SRC TacCMOPRS BS2: 1 . ° (1) 
0058 1 | 
1! v03-006 KBT0569 Keith 8. Thompson 29-.)ul-1983 
: Remove LibSextrect "eonceel hack 
06¢ 1 i v03-005 MLJ0114 Martin L. Jack, 23-Jun-1983 
06 : Changes for job controller baselevel. 
0065 1: v03-004 MLJ0113 Martin L. Jack, 26-May-1983 
Bpee : } Changes for job control lar baselevel. 
0068 1! v03-003 MLJ0112 Martin L. Jack, 29-Apr-1983 
434 : } Changes for job controller baselevel. 
0071 1: v03-002 mLJ0109 Martin L. Jack, 13-Apr-1983 
0072 1! new ¥ qualifiers. relax Length restrictions, disallow wildcard 
e207 : —_ /LOG 
ies 1: v03-001 MLJ0106 L. Jack, 01-Mar-1983 
0076 7! Support START /QUEGE YRANAGER 
0077 1! 
0078 1 !«ee 


1 
JBCCMDPRS Job Controller Command Parsing Utilities 1b-se -1984 00:09:18 AX-11 Bliss-32 V4.0-74 Page 
v04-000 . 12-8087 1 38s 13:88: 30 UCL IUTL. SROJBCCMDPRS .B 2;1 . 
79 1 LIBRARY ‘SYSSLIBRARY:LIB'; 

1 80 1 LIBRARY 'SYSSLIBRARY: TPAMAC'; 

¢ 98) ! REQUIRE ‘SRC$:JBCPRSDEF'; 

4 13 1 

5 195 1 LITERAL 
86 194 1 TRUE= 2 
7 195 1 FALSE= 0; 

196 1 

89 197 1 
90 0198 1 STRUCTURE 
91 344 ' BBLO K 0,.P.S,E;NJ= 
3 200 1 N 
S 0201 1 (BBLOCK + 0)<P,S,E>; 
94 0 oe 1 
95 0205 1 
96 0204 1 PSECT 
97 0205 1 CODE= CODE, 
98 0206 1 PLIT= CODE, 
99 0207 1 OWN= DATA, 
100 0208 1 GLOBAL= DATA; 
101 0209 1 
102 0210 1 
103 0211 1 FORWARD ROUTINE 
104 bele 1 CALL_TPARSE, 
105 0213 1 PARSE_IF _TRUE: PARSE_LINKAGE, 
106 0214 1 PARSE_IF_FALSE: PARSE_LINKAGE, 
107 0215 1 PARSE_IF-TRUE_FALSE: PARSE_LINKAGE, 
108 0216 1 PARSE_LOCAL_TRUE_FALSE: PARSE_LINKAGE, 
109 0217 1 PARSE_AFTER: PARSE_LINKAGE, 
110 0218 1 PARSE_ALIGN: PARSE_LINKAGE, 
111 0219 1 PARSE_BACKWARD: PARSE_LINKAGE, 
We 0220 1 PARSE_BASE_PRIORITY: PARSE_LINKAGE, 
11 0221 1 PARSE_BUFFER_COUNT: PARSE_LINKAGE, 
114 Oeee 1 PARSE_CHARACTERISTICS: PARSE_LINKAGE, 
115 0223 1 PARSE_CHAR_NUMBER: PARSE_LINKAGE, 
116 0224 1 PARSE_ COMMA LIST: PARSE_LINKAGE, 
117 0225 1 PARSE_COPIE PARSE_LINKAGE, 
118 0226 1 PARSE~CPUTIME: PARSE_LINKAGE, 
119 Os 7 PARSE_ENTRY: PARSE_LINKAGE_VALUE, 
120 0228 1 PARSE_EXTEND QUANTITY: PARSE-LINKAGE; 
121 O6¢? 1 PARSE_F ILENAME : PARSE_LINKAGE, 
122 0230 1 PARSE_FORWARD: PARSE-LINKAGE, 
12 06 o. PARSE_FORM: PARSE_LINKAGE, 
124 ¢ 1 PARSE_ GENERIC: PARSE_LINKAGE, 
125 02 1 PARSE_JOB_LIMIT: PARSE_LINKAGE, 
126 Og 4 1 PARSE_LOG FILE: PARSE _LINKAGE_VALUE, 
127 0235 1 PARSE LOWER_UPPER: PARSE_LINKAGE, 
128 og38 1 PARSE_NAME : PARSE_LINKAGE, 
129 0237 1 PARSE_NAME_AND_LOG FILE:PARSE_LINKAGE, 
130 06 8 1 PARSE_-NONZERO_RUMBER: PARSE-LINKAGE, 
131 9 1 PARSE_ NUMBER: PARSE_LINKAGE, 
136 40 1 PARSE~ OBJECT_NAME : PARSE_LINKAGE, 
1 41 1 PARSE_ON: PARSE_LINKAGE, 
134 te 1 PARSE~ OWNER: PARSE_LINKAGE, 
135 0243 1 PARSE~ PARAMETERS: PARSE_LINKAGE, 
136 0244 1 PARSE_PRINTER: PARSE_LINKAGE, 
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Job Controller Command Parsing Utilities 16-Sep-1984 90: Oar y8 AX-11 Bliss-32 eee 

14-Sep-1984 12:08:34 CLIUTL.SRCJJBCCMDPRS .B832;1 

PARSE _PRIORITY: PARSE_LINKAGE, 

PARSE _PROTECTION: PARSE _LINKAGE, 

PARSE _ QUEUE: PARSE-LINKAGE, 

PARSE ~SEARCH_STRING PARSE LINKAGE, 

PARSE STRING: PARSE LINKAGE, 

PARSE _STRING 255: PARSE_LINKAGE, 

PARSE_WORKING_SET: PARSE_LINKAGE; 


EXTERNAL ROUTINE 
CLISGET_VALUE: ADDRESSING_MODE (GENERAL), 


' Get a parameter or qualifier value 
CLISPRESENT: ADDRESSING_MODE (GENERAL) , 

! Determine if entity is present 
LIBSCVT_DTB: ADDRESSING_MODE (GENERAL), : : 

! Convert decimal string to binary 
LIBSCVT_DTIME: ADDRESSING_MODE (GENERAL), 

! Convert delta time to binary 
LIBSCVT_TIME: ADDRESSING_MODE (GENERAL), 

' Convert absolute time to binary 
LIBSTPARSE: ADDRESSING_MODE(GENERAL); | 

! Table-driven parser 


PEXAEQARAPRXEMMAMAII & & & 
VEWN —OOONAUE WN" OVOOnOu 


MMT ToTrororors 


OWN 


SOOOOSOCOCOOSOSOSOSOCOOSOSOSOCOOSOOSOSOSOS OOS SOSOSOSOOCOOOSOOOOCOOOCOOOOCOOOOOOOOOO 
a ee ee ee ke ee a a dd dd 


66 
367 
68 
269 1 EXTERNAL LITERAL 
370 CLI$_COMMA 
71 CLIS"NEGATED, 
372 CLIS-LOCNEG, 
27 CLIS-LOCPRES; 
274 
275 
276 1 BIND 
277 LITERAL_MINUS_ONE= UPLIT(-1), 
278 LITERAL~ZERO= UPLIT(O) 
279 LITERAL _ONE= UPLIT(+15; 
280 
281 
382 FORWARD 
See : TPARSE tables, which are defined at the end of this module. 
286 NONE_STATES: VECTORCO), 
28 NONE ~KEYS: VECTOR(OJ, 
88 INF I~STATES: VECTOR 0}. 
9 INF I“KEYS: VECTORCO). 
290 SYMB~ STATES: VECTOR(OJ, 
391 SYMB_KEYS: VECTOR(OJ. 
4 MASK~STATES: VECTOR(OJ, 
29 MASK-KEYS: VECTOR(OJ, 
94 OWNE~ sTATES: VECTOR 9 f 
95 “KEYS: VECTORCO), 
% PROT-STATES: VECTORCO), 
2 PROT"KEYS: VECTORCO): 
00 
01 


WwPonony 


TPA_1, 
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CONVERTED_UIC; 
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JBCCMDPRS Job Controller Command Parsing Utilities 16-Sep-1984 00:09:18 AX-11 Bliss-32 V4.0 P 
v04-000 ° 13-88-1382 90:88: 4 Aru SRE TUBE CMBPRS 6 B32;1 obs (38 


ROUTINE CALL_TPARSE(SRC,STATES,KEYS)= 


ee 


i 
j Funcr ioe. DESCRIPTION: 
This routine executes a call to LIBSTPARSE. 


INPUT PARAMETERS: 
- Address of a descriptor ae the string to be parsed. 
ab - State table parameter for TPARSE. 
KEYS - Keyword table parameter for TPARSE. 


ooo 
wre 


eat ee 

{ output PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

{ROUTINE VALUE : 


As returned by LIBSTPARSE. 
SIDE —— 


BEGIN 
MAP 


REF BBLOCK; Pointer to descriptor 
TPA_PARAM: BBLOCKCTPASK_LENGTHO]; ! TPARSE parameter block 


WAAR PIPUNINININININD 2 2 2 St OO OO 
WN SO DOBNOVEWN —“ODOONOU Sw -O0@ 


LOCAL 


abet Fs 


CHSFILL(O pase LENGTHO, TPA PARAM) ; 
TPA_PARAMCTPASL_COUNT) = TPASR COUNT; 


PL LP NE ANN NON A ae i fr i pe fr yar yh pw oe | 
LEBER 


GOOCCOCOCOOCOS COSCO OSSOOOCOOCOCOCOCOCOCOOOOOCOOCOCOOOoOoOoO 
DODNAWVE WN $9 OONAUNE WIN 9 ODNOAOUE WN (COO NAOUS WOO 


= PINIMPINPIPIAPIPINPYAPINIPINYAY a at at at tt tt tt Ss St St SS SS SS 


39 4 TPA~PARAM TPASL-OPTION ONS] = TPASM_ABBREV; 

40 4 TPA_PARAMCTPASL_ STRINGENT) = .SRCCDSC$W_LENGTH); 
ce 34 TPA-PARAMLTPASL-STRINGPTR] = .SRCCDSCSA_POINTER); 
4 5 


LSSSTPARSE TPA, PARAM, .STATES, .KEYS) ~ 


TITLE JBCCMDPRS Job Controller Command Parsing Utilit 
-IDENT \v04-000\ 
-PSECT DATA,NOEXE,2 
00000 TPA_1: .BLKB 4 
00004 CONVERTED UIC: 
-BLKB 4 


-PSECT CODE ,NOWRT,2 


| 


| 
| 


JBCCMDPRS 
v04-000 


24 


; Routine Size: 


Job Controller Command Parsing Utilities 


003C 


5E 24 C2 

00 6E a0 2c 
6€ 08 00 

04 AE 02 00 

50 04 AC 00 

08 AE 60 3¢ 

OC AE 04 Ad BO 

7E 08 AC 7D 

08 AE OF 

000000006 00 03 fe 


46 bytes, Routine Base: CODE + O00C 


1 
18-5 ep-1984 9: AX=11 Bliss-32 V4.0-74 
14-5 300-1 3be 99: 88 ‘48 CLIUTL.SRCIJBCCMDPRS.B 2:1 
0000 P.AAA: .LONG 1 
0004 P.AAB: .LONG 0 
0008 P.AAC: .LONG 1 
LITERAL_MINUS_ONE= P.AAA 
LITERAL-ZERO=~ P-AAB 
LITERAL-ONE= P. AAC 
.EXTRN CLISGET_VALUE, CLISPRESENT 
SEXTRN LIBSCVT“DTB, LIBSCVT_DTIME 
“EXTRN LIBSCVT-TIME, LIBSTPARSE 
~EXTRN CLIS_COMMA, CLI$_NEGATED 
SEXTRN CLIS"LOCNEG, CLIS_LOCPRES 
00000 CALL_TPARSE: 
.WORD Save R2,R3,R4,R5 
0000 SUBL2 #36, SP 
90005 movcS #0,°(SP), #0, #36, TPA_PARAM 
00008 MOVL #8, TPA_PARAM 
0000E MOVL #2, TPA; “PARAM+4 
00012 MOVL 
00016 MOVZWL (nos ROP A_PARAM+8 
OOO1A OVL (ROS TPR PARAM+12 
0001F ova craves, (SP) 
00023 PUSHAB TPA_PARAM 
00026 CALLS #3, LIBSTPARSE 
0002D RET 


3; Routine Size: 


SIDE EFFECTS: 
NONE 


BEGIN 
PARSE _EXTERNAL_REGISTERS; 


If CLISPRESENT(.Q_DESC) 
THEN 


H 1 
16-Sep-1984 
14-Sep-1984 


JBCCMDPRS Job Controller Command Parsing Utilities 
v04-000 ° 
Fi 
rh Les 
48 ' 
49 ' FUNCTIONAL DESCRIPTION: 
29 This routine parses a Boolean qualifier 
5 i 
2g 5 ' INPUT PARAMETERS: 
re ? : Standard parser parameters. 
5 6 i IMPLICIT INPUTS: 
3} ? } NONE 
36 6 i OUTPUT PARAMETERS: 
? NONE 
6 i IMPLICIT OUTPUTS: 
$ NONE 
7 i ROUTINE VALUE: 
7 ! NONE 
7 ‘ 
7 ! 
7 ! 
7 ! 
7 t= 
7 
7 
8 
8 
8 
8 
8 
8 


SOOOCCOCOCOOSOSOSCOOSOOCOCGCOSOOSCOSOOCOOCOOCOSOOOOCOOOOOOCOOOOo 
eee tote intents errr ee een 


COW O9 OOOO NINN SIN NNO OOOO OOO 
SRP ES sae Ken SSSISSFS22S 
ORD ALAIN AIA AERIS PIRI RI ROIS at at tt a a ss tn + os ss as ts 


PoOPoRoNoNofoRofonofononofnofnonononononofnnny 


BEGI 
Q_ICURSORLO,0,16,0) = 0; 
Q-ICURSORE2.0.16.0) = .Q_P1; 
8 Q-ICURSORE4.0.32.0) = 0; 
8 Q_ICURSOR(8,0,32,0] = 0; 
Q ICURSOR = .Q_ICURSOR + 12; 
9 ERD; 
9 END; 
06 ac 
00000000G 00 1 
08 0 
8B 
88 08 AC 
8B 
24 bytes, Routine Base: CODE + 003A 


12:08:54 


ae Bliss-32 V4.0- 
CLIUTL.SRCJJBCCMDPRS 


GLOBAL ROUTINE PARSE_IF_TRUE(PARSE_PARAMETERS_): PARSE_LINKAGE= 


making an entry in the job 
controller parameter list if the qualifier is present. 


! Declare external registers 


00 00000 .ENTRY PARSE_IF_TRUE, Save nothing 
DD 9000¢ PUSHL 
FB 0000 CALLS &#T, CLISPRESENT 
E9 0000C BLBC ; 
B4 O000F CLRW (0 ICURSOR)+ 
80 90011 MOVY Pi, (Q ICURSOR)+ 
C 0015 CLRQ © (G_ICurSOR)+ 
04 00017 1$: RET 


74 
-B32;1 


Page 


( 


4) 


a = a 


RETRY Sk Ceereter Comane ereing weticton AERIS WEEE It LRT a 


JBCCMDPRS 
—v04-000 
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Job Controller Command Parsing Utilities 


WAAAIA LAI AIP POPONINININYUPINIDS 2 I tO OO 


PRLLLLELLELELLELELLELLELERRERELERERELE 
OS SO ARUN PODS NOE UNH OOODNAMRWM—SO 


PEE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEG! 
LOCA 
4 
4 
& 
4 
4 


3 
1b-Sep-1984 00:09:18 YaN=t1 BLisg-32 v4 


GLOBAL ROUTINE PARSE_IF_FALSE(PARSE_PARAMETERS_): PARSE_LINKAGE= 
1+¢ 
FUNCTIONAL DESCRIPTION: 
This routine parses a Boolean qualifier, making an entry in the job 
controller parameter List if the qualifier is explicitly negated. 


INPUT PARAMETERS: 
Standard parser parameters. 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


GIN 
+73 * pahteatatai erties ! Declare external registers 


STATUS; 
BUILTIN 
ACTUALCOUNT 
ACTUALPARAME TER; 
STATUS = CLISPRESENT(.Q_DESC); 
IF STATUS EQL CLIS_NEGATED OR .STATUS EQL CLI$_LOCNEG 
BEGIN 
INCR I FROM 2 TO ACTUALCOUNT() DO 
BEGIN 
Q_I CURSOR 9.0.16.0 = 0; 
Q"ICURSORE2.0.16.0) = ACTUALPARAMETER(.1); 
Q7 1 CURSOR 4.0. 32.0 = 0; 
Q- 1CURSORL8,0 } = 0; 
Q"ICURSOR =°.G_ICURSOR + 12; 
ERD; 
END; 
END; 
0000 00000 -ENTRY PARSE_IF_FALSE, Save nothing 


0-74 
MDPRS.B92; 1 
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(5) 


; 0393 


Kk 1 
Rep ath toverattor Comune Parag uesttetn HE HeeISt MERRIE ABS OLENA tba ie 


04 aC DD é PUSHL  Q_DESC 
990000006 00 F CALLS #1, CLISPRESENT 
G 8F g p i CHPL STATUS, #CLIS$_NEGATED 
000000006 8F 0 »D 0 1 CMPL STATUS, #CLIS_LOCNEG 
14 12 0001C¢ BNEG 4 
51 6C 9A OOOIE 18 MOVZBL (AP), R1 
50 01 DO 90021 OVL #1, f 
08 11 00024 BRB 3$ 
8B B4 00026 2$: LRW  (Q_ICURSOR)+ 
8B 6C40 F7 00028 CVTLW (AP)CIJ, (Q@_ICURSOR)+ 
8B 7c 0002¢ CLRO © (Q_I CURSOR) 
F4 50 51 F3 OOO2E 3$: AOBLEQ R1> I, 2$ 
04 00032 4$: ET 


; Routine Size: 51 bytes, Routine Base: CODE + 0052 
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JBCCMDPRS Job Controller Command Parsing Utilities 18-5 ep-1984 9:18 AX-11 Bliss-32 V4. 
yes 5000 : 1ereeen18be $3ibasse | Leet ORES TeecHbPRS 6$2.1 ne 


; 9 rks GLOBAL ROUTINE PARSE_IF_TRUE_FALSE(PARSE_PARAMETERS_): PARSE_LINKAGE= 
G 646 1 144 
; 447 13 
3 4 $8 ,: heeds DESCRIPTION: 
13 5 449 1: This routine parses a Boolean qualifier, making an entry in the job 
a § 431 : controller parameter List according to the true or false status. | 
> 348 ase 1 i INPUT PARAMETERS: | 
3 3 ett : Standard parser parameters. 
E 31 0135 } {IMPLICIT INPUTS: | 
3 38 7 a | 
(3 328 Q458 1 | OUTPUT PARAMETERS: | 
; 356 0460 1 | | 
; 2 he ; re rey 
; 359 04663 1 | | 
BR Be yf cma 
: 6¢ 0466 1 | 
oe ee i 
; 365 0469 1! | 
: 0470 1 !-- 
\3 0471 1 | 
; berg BEGIN 
3 047 PARSE _EXTERNAL_REGISTERS; ! Declare external registers 
; 0474 LOCAL 
; oh STATUS; 
; 0477 | 
: 0478 STATUS = CLLISPRESENT(.Q_DESC); 
: 0479 IF .STATUS | 
; 0480 THEN 
; bees BEGIN | 
3 04 ; 8. CURSO 0.16 6.0 9 = 0; 
‘ 04 @ ~1CUR 29:16 0 = .0_P1; 
; 04 Q-1CURS SORES 32.0 = 0; 
; a 5 £1 cURSOR 8, 0 0; 
; $? QF CURS 6. {CURSOR + 12; | 
; be ELSE IF .STATUS EQL CLIS_NEGATED OR .STATUS EQL CLIS$_LOCNEG | 
: +4 THEN 
; yi BEGIN | 
3 91 Q_ICURSOR g. 16,0) = 0; 
: % Q-ICURSORE2,0,16.0] = .0_P2; | 
; 5 Q-ICURSOR(4, 3 9 = 6: | 
: 94 Q-ICcurRSOR(8, =U; 
; 495 05 CURSOR =’. ICURSOR + 12; 
; 009 END; 


m1 
Ree ee ee 1erSep-1986 F2:B:se — EeLTUTL osm Sas chOPRS-B82; 1 


0000 0000 ENTRY PARSE_IF_TRUE_FALSE, Save nothing 
04 AC DD 000 PUSHL 
000000006 00 gi FB CALLS #7, CLISPRESENT 
9 0 € C BLBC © STATUS, 1$ 
6B 64 F CLRW 30s CQ CURSOR) 
02 AB 08 AC 8 a nov QP , 26Q_ICURSOR) 
000000006 8F 30 D4 0018 1$ CPL STATUS, #CLIS_NEGATED 
000000006 8F 3 D] 00 1 CMPL STATUS, #CLIS_LOCNEG 
0D 12 00028 BNEG  4$ 
6B B4 0002A 2$ CLRW  (Q_I CURSOR) 
02 AB oc A Bo 0002¢ MOVW Q_P2, 2(Q_ICURSOR) 
04 AB 7C 00031 3$: CLRQ.  4TQ_{CURSOR) 
| 5B 0C CO 00034 ADDL2 #127 G_ICURSOR 
04 00037 4s: RET 


: Routine Size: 56 bytes, Routine Base: CODE + 0085 
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PARSE_LINKAGE= 


Job Controller Command Parsing Utilities 


BicRe" 


rameter List according to the locally present or negated 
! Declare external registers 


This routine parses a Boolean qualifier, making an entry in the job 


LOBAL ROUTINE PARSE_LOCAL_TRUE_FALSE (PARSE _PARAMETERS_): 
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JBCCMDPRS Job Controller Command Parsing Utilities 1hess -1984 09:18 Ax-11 Bliss-32 V4.0-74 
¥Oes000 . 12288-1382 90: ORs se Orrute sRel Be CMDPRS 682: 1 
0000 900 ENTRY PARSE_LOCAL_TRUE_FALSE, Save nothing 
04 AC DD 000 PUSHL QD 
900000006 90 gi FB CALLS aT CLISPRESENT 
00000006 8F g p CMP STATUS, #CLIS$_LOCPRES 
09 12 0001 BNEG 1$ 
68 B4 0001 CLRW  (Q_ICURSOR) 
02 AB 08 AC BO 0001 MOVW Q_P1, 2(0_ICURSOR) 
10 11 iC /BRB 2$ 
000000006 8F 50 D1 0 3 1$: CMPL STATUS. #CLIS_LOCNEG 
0D 12 BNEO 5 
6B B4 00027 CLRW (Q_ICURSOR) 
02 AB Oc AC B80 00029 MOVW Q P2, 2(Q_ICURSOR) 
06 AB 7C O00¢E 2$: CLRQ.  4TQ_{CURSOR 
58 0C CO 00031 ADDL2 #127 Q_ICURSOR 
04 00034 3$: RET 


; Routine Size: 53 bytes, Routine Base: CODE + 00BD 
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JBCCMDPRS Job Controller Command Parsing Utilities 1-52 Sep-1984 AX-11 Bliss-32 V4.0-7 
| 706-000 . 1e-8ep-198e Soi08sse Lek TuTe SResaeecMbPes 69251 
$ $2] 0384 ! GLOBAL ROUTINE PARSE_AFTER(PARSE_PARAMETERS_): PARSE_LINKAGE= 
3 re 0555 1 !+¢ 

: 454 pees 1 i 

; 455 05 1! FUNCT 1OMAL DESCRIPTION: 

: 456 0558 1! his routine parses the /AFTER qualifier, making an entry in the job 
s 657 0559 1! controller parameter List. 

> 458 0560 1! 

; 459 0561 1 ! INPUT PARAMETERS: 

; 460 8208 1! Standard parser parameters. 

; 461 0565 1! 

: 46 0564 1 ! IMPLICIT INPUTS: 

:; 46 0565 1! NONE 

> 464 0566 1! 

: 465 0567 1 ! OUTPUT PARAMETERS: 

> 466 0568 1! NONE 

: 467 0569 1! 

: 468 0570 1 ! IMPLICIT OUTPUTS: 

; 469 0571 1! NONE 

: 470 bate 1! 

: 471 0573 1 ! ROUTINE VALUE: 

: 472 0574 1! NONE 

; 473 0575 1! 

3 474 0576 1! SIDE EFFECTS: 

: 475 0577 1! NONE 

3; 476 0578 1! 

3; 477 0579 1 !-- 

: 478 0580 1 

3; 479 0581 3 BEGIN : 

; 480 pees PARSE _EXTERNAL_REGISTERS; ! Declare external registers 
>; 481 0583 2 LOCAL 

: 482 0584 STATUS; 

: 483 0585 

> 484 0586 

; «4485 0587 STATUS = CLISPRESENT(.Q_DESC); 

>; 486 0588 iF . STATUS 

3; 487 0589 THEN 

: 488 0590 BEGIN 

; 489 0591 ey VALUE(.Q_ DESC, .Q_ VALUE_DESC); 

° +0 be08 T CIBSCVT_TIME(.Q -VACUE_DESC, .Q_DCURSOR) 

; 492 0594 SIGNAL. STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 
: 493 0595 

3 494 0298 

: 495 59 Q@_Icu oon 9. 0,16,0) = 8; 

: 496 0598 Q-ICcuU ys -0.16,0) = SJCS_AFTER_TIME; 

; 497 0599 Q-ICUR Bh 20) = .Q_DCURSORS 

; 4498 0600 Q-ICUR 0 = Os 

: 499 0601 O-ICUR 6_1CURSOR 

: 300 Sep He URSOR = Q-DCURSOR : Ss 

; 50¢ 0604 If .ST TATUS EQL CLIS_NEGATED OR .STATUS EQL CLIS$_LOCNEG 

; 0605 THE 

5 ape 0 BEGIN 

; 505 : Q_ICURSOR 2: -16,0) = 0; 

; 506 8 Q” ICURSOR +38 20) = SJCS_NO_AFTER_TIME; 

3; 507 06 Q-IcursOR(4 0°39 0) = 0; 


> 2 
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v04=000 ° 1a-8ep-19 4 90:08:50 tetiute sre JBCCMDPRS.B32;1 9° 68) 
; 508 0610 Q_ICURSOR[8,0,32,0] = 0; 
: §09 0611 Q-ICURSOR = ".G_ICURSOR + 12; 
; 510 Belg 3 
: $14 061 END; 
0004 00000 .ENTRY PARSE_AFTER, Save R2 7 0553 
AC DD 90008 PUSHL 0 DEST : 0587. 
000000006 9 gi FB 9900 CALLS #1, CLISPRESENT : | 
0 dO 0000C MOVL RO, STATUS : 
5 32 E9 OOCOF BLBC STATUS, 2$ ; 0588 
58 DD 00012 PUSHL  Q_VALUE_DESC : 0591 | 
04 AC DD 00014 PUSHL DESC : 
000000006 00 be FB 00017 CALLS #2, CLISGET VALUE 3 
0500 8F 8B 0001 PUSHR #*M<R8,R10> : 0592. 
000000006 00 08 FB 000 CALLS 2, LIBSCVT_TIME ; | 
10 E8 000 BLBS RO, 18 : 
04 AC DD 0002C¢ PUSHL  @_DESC > 0594. 
58 DD 0002F PUSHL Q-VALUE_DESC : | 
0¢ DD 00031 PUSHL 3 
DD 00033 PUSHL Q MESSAGE : 
000000006 00 04 FB 00035 CALLS #2, LIBS$STOP ; 
88 00030008 8F 00 9005¢ 1$: MOVL #196616, (Q_ICURSOR)+ : 0597 
86 8A 7E 0004 MOVAQ  (Q_DCURSOR)?, (Q_ICURSOR)+ ; 0599 
8B D4 00046 CLRL (Q- I CURSOR) + 3 0600 | 
000000006 8F 52 D1 00048 2s: CMPL TATUS, #CLIS_NEGATED + 0604. 
09 13 0004F BEQL ; 
000000006 8F 52 D1 00051 CMPL STATUS, #CLIS_LOCNEG {esa 
09 12 00058 BNEQ : 
8B 00040000 8F 00 0005A 3$: MOVL #262144, (Q_ICURSOR)+ > 0607 | 
8B 7C 00061 CLRO (Q_I CURSOR)? : 0609 | 
04 00063 4$: RET ; 0613 | 


; Routine Size: 100 bytes, Routine Base: CODE + OOF2 
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v04-000 ° 12-08-1382 90:08 se CLIUTL.SRC Ta CMDPRS B3231 . (9) 
: 3 pete } GLOBAL ROUTINE PARSE_ALIGN(PARSE_PARAMETERS_): PARSE_LINKAGE= 
g 315 Beis 1 lee 
>; 516 617 1! 
; rat bois 1 ! FUNCTIONAL DESCRIPTION: 
; 38 0619 1! his routine parses the /ALIGN qualifier, making an entry in the job 
3 238 +9 ! } controller parameter List. 
3 2 1 06 ¢ 1 ! INPUT PARAMETERS: 
3 2 ¢ 86 ? : Standard parser parameters. 
> 526 ge 5 1! IMPLICIT INPUTS: 
s ee 626 1! NONE 
; 526 0627 1! 
s Ser 0628 1 ! OUTPUT PARAMETERS: 
; 2 8 0629 1! NONE 
; 9 0630 1! 
s 330 0631 1 ! IMPLICIT OUTPUTS: 
; 531 bo8¢ 1! NONE 
3 238 06 1! 
3; os 0634 1 ! ROUTINE VALUE: 
: 534 0635 1! NONE 
3 335 0636 1! 
s 336 0637 1 ! SIDE EFFECTS: 
s S37 0638 1! NONE 
3; 3o8 0639 1! 
3; 3 0640 1 !-- 
; 540 0641 1 
; $41 0642 2 BEGIN 
3 266 064 PARSE _EXTERNAL_REGISTERS; ! Declare external registers 
; «54 0644 LOCA 
3 544 0645 EXPLICIT_PAGES; 
; 545 0646 
3 546 0647 
>; 547 0648 IF CLISPRESENT(.Q_DESC) 
; 548 0649 THEN 
; 549 0650 BEGIN 
; 550 0651 EXPLICIT_PAGES = FALSE; 
3; 551 bees 
: 226 065 
3 335 0654 WHILE CLISGET_VALUE(.Q_DESC, .Q_VALUE_DESC) DO 
3; 554 9632 4 BEGIN 
s 335 26 ra IF LIBSCVT_DTB( 
; 556 0657 4 -Q_VALOE_DESCCDSC$W_LENGTH], .Q_VALUE_DESCCDSCSA_POINTER], 
2 Sor 0658 4 -Q-DCURSOR) 
; 558 0659 4 HEN 
; 559 0660 5 BEGIN 
; 560 0661 IF .Q@_DCURSOR(O,0,32,0] - 1 GTRU 20 - 1 ! 1 <= N <= 20 
3 20) poeg THEN 
; 266 066 SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 
3: 564 5 
; 565 EXPLICIT_PAGES = TRUE; 
3 266 Q_ICURSOR(0.0,16,0] = 4; 
3 6 Q_IcuRSOR(2,0,1 8 = SJCS_ALIGNMENT_PAGES; 
; 568 206? : Q-ICURSOR(4, 3 .0) = ,Q_DCURSOR; 
: 569 0670 Q-ICURSOR(8,0.32.0) = 0; 
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v04-000 ° 1o-g08= 1382 09:08 :$0 Cr TUTL ESR ResvBecMD MoPRs. aS, 31 . (9) 


; $70 0671 Q_ICURSOR = .Q_ICURSOR + 12; 
: §71 606 Q"DCURSOR = .Q7DCURSOR + 4; 
: 57 067 ERD 
: 57 7% 
; 574 0675 
: 575 0676 4 ELSE IF CALL_TPARSE(.Q_VALUE_DESC, MASK_STATES, MASK_KEYS) 
: 576 0677 4 THEN 
: $77 0678 2 BEGIN 
: 578 679 Q_ICURSOR 9.0.16.0] = 0; 
: 579 0680 5 Q-ICURSORE2,0.16.0] = SJCS_ALIGNMENT_MASK; 
: 580 0681 5 Q- I CURSOR 4.0.3 0] = 0; 
: 581 06 Q 2 Q-ICURSOR[8,0,32,0) = 0; 
; 28¢ 6 Q-ICURSOR = .@_I¢uRSOR + 12; 
; 58 0684 5 ERD 
; 584 0685 5 
: 585 686 5 
; 586 87 4 ELSE 
; 387 0688 4 SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 
; 5 0689 3 ND; 
; 589 0690 3 ‘ 
: 590 0691 
: 591 069 IF NOT .EXPLICIT_PAGES 
: 592 069 THEN 
: 593 0694 4 BEG! 
: 594 0695 4 Q_ICURSOR[0,0,16,0) = 4; 
: 595 0696 4 Q~ICURSORE2.0,16.0] = SJCS_A ALIGNMENT _PAGES; 
: 596 0697 4 O"1CURSORES 0.32.03 = LITERAL_ONE; 
: 597 0698 4 Q-ICURSOR(8,0,32,0] = 0; 
: 598 0699 4 Q~ICURSOR = .Q_ICURSOR + wate: 
: 599 0700 3 ERD; 
; 600 0701 2 END; 
: 601 0702 1 END: 
000c 00000 .ENTRY PARSE_ALIGN, Save R2,R3 : 0614 
53 000000006 00 9€ 00002 MOVAB LIBSSTOP, RS : | 
04 AC DD 00009 PUSHL 4 DESC 5 0648 
000000006 00 01 FB 9000¢ CALLS a, CLISPRESENT : | 
01 50 E 0001 BLBS * 1$ ; 
4 00016 RET : 
52 D4 00017 1$ CLRL EXPLICIT PAGES > 0651 
DD 00019 2$ PUSHL E€_BESC > 0654 
04 AC DD 0001B PUSHL : 
000000006 00 ; F OO1E CALLS » CLISGET_VALUE : 
63 E9 000 BLBC ; | 
A DD 00028 PUSHL RO; 6 : 0658 
06 A bp 002A PUSHL ara VALUE 0 DESC) > 0657 
7E C 00 : MOV ZL g_VAL LUE DE ESC) g 76S) ; 
000000006 90 FB 000 CALLS #37 : T_D ; 
6 E9 000 BLBC. —_«aRO.. F 
50 6A gi C3 0003A SUBL3.s#i, ta DCURSOR), RO : 0661 | 
- bc 8B booct sitty f° 7" : 
04 AC DD 00043 PUSHL  _DESC > 0663 


2 
JBCCMDPRS Job Controller Command Parsing Utilities 18-5 epo-19 8 Ax-11 Oi fog -32 v4.0-7 Page 20 
04-000 ° eats a HT a CBT eta Ree Se oe 8 
DD 46 PUSHL  Q_VALUE_DESC : 
1)) 4 PUSHL # 3 
DD 0004A PUSHL MESSAGE : 
$3 or 09 Sock 3$ Soe ie peer ances : 066 
BB 00060004 8F D § : OVL #15 530 (Q_TCURSOR)+ : bees 
88 BA DE 000 MOVAL  (Q_DCURSOR), (Q_ICURSOR)+ + 0669 
8B D4 0005C CLRL  (Q7ICURSOR)+ + 0670 
B9 11 0005€ BRB 2$ : 0656. 
0000v CF 9F 00060 4$: PUSHAB MASK_KEYS : 0676. 
0000v CF 9F 00064 PUSHAB MASK STATES : 
33 DD S868 PUSHL Q_VACUE_DESC 3 
FES? CF FB O006A CALLS #3, CALL TPARSE ; 
B 50 €9 O06F BLBC 9 $ ; 
00050000 8F DO 000 2 MOVL #327680, (Q_ICURSOR)+ > 0679, 
8B 7C 0007 CLRO © (_I CURSOR)? + 0681 | 
9C 11 90078 BRB 2$ : 0676) 
04 AC DD 0007D Ss: PUSHL Q_DESC + 0688 | 
58 DD 9080 PUSHL  Q-VALUE_DESC : 
02 DD 0008 PUSHL #2 F 
59 DD 00084 PUSHL Q MESSAGE : 
63 04 FB 00086 CALLS #%, LIBSSTOP : | 
BE 11 00089 BRB > 0654. 
OE 52 €8 0008B 6$: BLBS $398550 16 PAGES 7$ + 0692 | 
8B 00060004 &8F DO 0008 MOVL 93220 CURSOR) + + 0695 | 
8B FE19 CF 9E 0009 MOVAB LITE ONE or ICURSOR) + + 0697. 
8B D4 O009A CLRL = (0 it CURSOR : 0698. 
04 0009C 7$: RET ; 


3; Routine Size: 157 bytes, Routine Base: CODE + 0156 
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: 603 704 } GLOBAL ROUTINE PARSE _BACKWARD (PARSE _PARAMETERS_): PARSE_LINKAGE= 
; 605 705 1 !+4 

3 ode 7 1! 

; 60 7 1 ! FUNCTIONAL DESCRIPTION: 

; 608 708 1! This routine parses the /BACKWARD qualifier, making an entry in the 
3 oo? 108 } : job controller parameter List. 

; 611 0711 1 ! INPUT PARAMETERS: 

s ol¢ orig 1! Standard parser parameters. 

; +61 07135 1! 

: 616 Brie 1 ! IMPLICIT INPUTS: 

; 615 Tie 3 3 NONE 

; 616 pris 1! 

3s 617 071 1 ! OUTPUT PARAMETERS: 

; 618 0718 1! NONE 

; 619 0719 1! 

3 630 0720 1 ! IMPLICIT OUTPUTS: 

: 621 0721 1! NONE 

3 6 ¢ 07 ; 1! 

3; 6 07 1 ! ROUTINE VALUE: 

: 624 0724 1! NONE 

; 625 0725 1! 

; 626 0726 1 ! SIDE EFFECTS: 

3 os? 0727 1! NONE 

; 628 0728 1! 

3 O69 0729 1 !-- 

; 6350 0730 1 

3; 631 0731 BEGIN ; 
3 O36 07 ¢ PARSE _EXTERNAL_REGISTERS; ! Declare external registers 
; 63 073 

> 634 0734 

; 635 0735 IF CLISPRESENT(.Q_DESC) 

; 636 or 36 THEN 

: 657 073 BEGIN 

; 638 0738 IF CLISGET_VALUE(.Q_DESC, .Q_VALUE_DESC) 

; 639 0739 THEN 

3; 640 0740 4 BEGIN 

3; 641 0741 4 IF 

5 oe areg 5 BEGIN 

; 64 074 IF NOT LIBSCVT $4 

3 644 0744 -Q_VALUE_DESCCDSC$W_LENGTH], .Q_VALUE_DESCCDSCS$A_POINTER), 
: 645 745 -Q-DCURSOR) 

3 o*6 re : 

: 64 74 TRUE 

; 648 0748 SE 

3; 6469 544 -Q_DCURSOR(0,0,32,0] EQ. 0 

: 650 750 D 

3; 651 0751 4 THEN 

3 636 0088 4 SIGNAL _STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 
: 6 753 4 

3 654 754 4 

; 655 755 4 Q_DCURSOR(0,0,32,0] = - .Q_DCURSOR(O,0,32,0); 

3 636 738 4 Q_ICURSOR(O.0,16,0) = 4; 

; 65 7 4 Q_ICURSOR([2,0,16, = SJC$_RELATIVE_PAGE; 

3; 658 758 4 Q-ICURSOR[4, 3 -0) = ,Q_DCURSOR; 

: 659 759 4 Q-1CURSORE8.0.32.0) = 0; 


t 
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¥O55000 ° aaa TRE eae CBT het aR tees aC ee 9° 485 | 
: 660 760 4 Q_ICURSOR = .Q_ICURSOR + 12; 
; 661 761 & Q-DCURSOR = .Q-DCURSOR + 4; 
; O66 166 4 ERD 
: 66 763 3 ELSE 
3 664 764 & BEGIN 
: 665 765 4 Q_ICURSOR g. 16.0 = 4; 
; 666 766 4 Q-ICURSORE2,0.16,0) = SJCS_RELATIVE_PAGE; 
: 667 0767 4 Q-ICURSORES, 3 .0J = LITERAL MINUS “ONE ; 
2 en ees cceae eee 
; =. ° 
; 670 $990 3 END: an 
: 671 0771 ¢ END; 
3 72 0772 END; 
0000 000 ENTRY PARSE_BACKWARD, Save nothing : 0703 
AC DD 0000 PUSHL : 0735 
000000006 00 01 FB 0000 CALLS #T, CLISPRESENT 3 
58 50 €9 0000C LBC ~—E sO, : 
58 DD O000F PUSHL Q_VALUE_DESC : 0738 
046 AC DD 00011 PUSHL Q~DESC : 
000000006 00 02 FB 00014 CALLS #2, CLISGET_VALUE F 
36 50 €9 00018 BLBC : 
SA DD OOO1E PUSHL  @ DCURSOR + 0745 
04 «AB po 00020 PUSHL 4TQ VALUE DESC) 7 0744 
7E 68 3C 00023 MOVZWL (Q_VALUE_BESC), -(SP) : 
000000006 00 03 FB 00026 CALLS #3, LIBSCVT_DTB ; 
04 50 £9 909 D LBC » F 
6A 05 00030 STL (Q_DCURSOR) : 0749 
10 12 00032 BNEQ 2$ : 
04 AC DD 00034 18: PUSHL _DESC : 0752 
58 DD 00037 PUSHL Q-VALUE_DESC ; 
0@ DD 00039 PUSHL #2 : 
59 DD 000 PUSHL Q MESSAGE F 
060000006 00 04 FB 900 CALLS 4#%, LIBSSTOP ; | 
6A 6A CE 00044 2$: MNEGL (Q DCURSOR), (@_DCURSOR) : 0755 | 
6B 00880004 BF DO 00047 MOVL #8912900, (@_ICORSOR) : 0756. 
04 AB A DE O04 MOVAL (Q_DCURSOR)+> 4(Q_ICURSOR) : 0758 | 
0D 11 0005 BRB 4$ : 0759 | 
6B 00880004 8F DO 00054 3s: MOVL #8912900, (Q_ICURSOR) : 0765 | 
06 AB FDAE CF 9E 0038 MOVAB LITERAL_MINUS_ONE, 4(Q_ICURSOR) : 0767 
08 AB D4 00061 4$ CLRL (Q_I CURSOR) : 0768 
58 OC CO 00064 ADDL2 #127 Q_ICURSOR : 0760 
04 00067 5$ RET : 0772 


3; Routine Size: 


104 bytes, 


Routine Base: 


CODE + O1F3 


c— 


J 2 
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: or ag ! GLOBAL ROUTINE PARSE_BASE_PRIORITY(PARSE_PARAMETERS_): PARSE_LINKAGE= 
; 67 775 1 «S44 

; 67 £76 1 i 

, 6F 777 1 ' FUNCTIONAL DESCRIPTION: 

; 67 ak 1 This routine parses the /BASE qpnuenere qualifier, making an entry in the 
; 680 779 1: job controller parameter List 

3; 681 780 1! 

3 oe re ' INPUT pet dt + : 

3 andard parser parameters. 

3: 684 7 5 1! 

> 685 784 1 | IMPLICIT INPUTS: 

> 686 785 1! NONE 

3 687 0786 1! 

3; 688 0787 1 | OUTPUT PARAMETERS: 

; 689 0788 1! NONE 

; 690 0789 1: 

; 691 0790 1 ' IMPLICIT OUTPUTS: 

; 69 0791 1 NONE 

; 69 4d 1 i 

: 694 0793 1 ' ROUTINE VALUE: 

; 695 0794 1! NONE 

; 696 0795 1: 

; 697 0796 1 | SIDE EFFECTS: 

; 698 0797 1: NONE 

; 699 0798 1: 

; 700 0799 1 i- 

; 701 0800 1 

; 70 0801 Sats BEGIN : 

: at st PARSE _EXTERNAL_REGISTERS; ! Declare external registers 
; 705 0804 

; 706 0805 IF CLISGET_VALUE(.Q_DESC, .Q_VALUE_DESC) 

; 707 0806 

; 708 0807 BEGIN 

; 709 0808 IF 

: 710 0809 4 BEGIN 

s ii 0810 4 IF NOT Liesevi 

3 At 0811 4 -Q_VALUE DESCEDSCSw LENGTH], .Q_VALUE_DESCCDSCSA_POINTER], 
3 (71 oBls 4 -o- URSOR) 

; 714 081 4 

3 715 0814 4 TRUE 

: 716 0815 4 ELSE 

s 717 oai$ 4 -Q_DCURSOR[0,0,32,0] GTRU 15 ' 0 <= N <= 15 
: 718 0817 4 END 

3: 719 0818 THEN 

; rey 3 th4 SIGNAL_STOP(.Q MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 
3 r3¢ o8 1 

. FF 8 § Q_ICURSOR(0,0,16,0] = 4; 

: 726 8 Q_ICURSOR[2,0,16,0] = SJC$ pase * uma 

; 726 5 Q_Icursor(8, = 0; 

: 727 6 Q"ICURSOR =".4_ICURSOR + “12; 

: 72 0 Q'DCURSOR = .Q_DCURSOR + 4; 

3; 729 0 3 ERD; 

a 0 END; 


; Routine Size: 
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000000006 99 
; 04 
000000006 p 
: 
04 


000000006 00 
6 00070004 
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era E DESC 0) 
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Q_VALOE_DESC 
Q DESC 


{9_DCURSOR) #15 
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GLOBAL ROUTINE PARSE _BUFFER_COUNT(PARSE _PARAMETERS_): PARSE _LINKAGE= 
lee 
' 
FUNCTIONAL DESCRIPTION: 
This routine parses the Foye cen ceumt qualifier, making an entry in the 
job controller parameter List. 


INPUT PARAMETERS: 
Standard parser parameters. 


IMPLICIT INPUTS: 
NONE 


roe it 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


GIN 
PARSE _EXTERNAL_REGISTERS; ! Declare external registers 


FE gt TOGET WALUEL.6 DESC. -Q_VALUE _DESC) 
BEGIN 
IF 


BEGIN 
IF NOT LIBSC\, pret 
Q VALUE DESC DSCSW_LENGTH], .Q_VALUE_DESCCDSCS$A_POINTER], 


TRUE 
ELSE 
> -Q_DCURSORCO,0,32,0) GTRU 127 


! 0 <= N <= 127 


THEN 
SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 

Q_ICURSOR Q. .16,0) = 4; 

Q-ICURSOR(2.0.16.0) = SJC$_BUFFER_COUNT; 

Q-ICURSORES. 3 0] = .0_DCURSOR; 

QI CURSORLS, 0) = 0; 

O7ICURSOR =". ICURSOR + 12; 

Q°DCURSOR = Q7DCURSOR + 4; 


; Routine Size: 
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000000006 99 


7E 
000000006 09 
0000007F F 


000000006 00 


8B 00A00004 
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PARSE BUFFER_COUNT, Save nothing 


Q_VALOE_DESC 


ISGET_VALUE 


ates #127 
jv DESC 

ESSAGE 
Hui «% ICURSOR) + 
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GLOBAL ROUTINE PARSE _CHARACTERISTICS(PARSE_PARAMETERS_): PARSE_LINKAGE= 


FUNCTIONAL DESCRIPTION: 
This routine parses the /Cuanas TEREST ECs qualifier, making an entry in 
the job controller parameter List. 


INPUT PARAMETERS: 

Standard parser parameters. 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 

SIDE EFFECTS: 
NONE 


EGIN 
+3 * Cheeta teas ! Declare external registers 
; STATUS; 
Srarys Type J SPRESEMT(.G_DESC); 
BEGIN 
WHILE CL ISGET VALUE C.0_SESC. -Q_VALUE_DESC) DO 
IF LIBSCVT DTB( 
~Q_VALOE_DESCCDSC$W_LENGTH], .Q_VALUE_DESCCDSCSA_POINTER], 
4? URSOR) 
BEGIN 
if 0 DCURSORO.0.52.03 GTRU 127 ! 0 <= N <= 127 
SIGNAL_STOP(.Q_ MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 
Q_ICURSOR 9. 16,0] = 4; 
Q_ICURSOR(E2,0,16,.0)] = SJC$_CHARACTERISTIC_NUMBER; 
Q_ICURSORES, 3 -0] = ,Q_DCURSOR; 
O-ICURSORIS, = 0; 
O7ICURSOR =". ICURSOR + 12; 
” ieee = ,Q_DCURSOR + 4; 


N 2 
erSepm19be Voioese — LeLiu sae Suaec 


 acomeee Job Controller Command Parsing Utilities AX-11 Bliss-32 V4.0-7 
-000 CLIUTL.SRCJJBCCMDPRS. : 2:1 


1B-sep-19 4 00:09:48 


Pa 8 
12-Sep-1984 12:08:36 9 48 


: BN Sere 2 
; B49 246 4 ELSE IF CALL_TPARSE(.Q_VALUE_DESC, SYMB_STATES, SYMB_KEYS) 
: §20 feck THEN EGIN 
; 85¢ 0949 2 Q_ICURSOR 9.0.16.0 = ,Q_VALUE_DESCCDSC$W LENGTH]: 
; 85 0950 Q"ICURSOR 0.1 9 = §JU$_CHARA ACTERISTIC“NAME ; 
: 854 0951 Q-ICURSORES, 3 70] = ,Q_DCURSOR; 
; 855 O95¢ Q-ICURSORE8,0,32,0) = 0;~ 
; 856 0953 § Q"ICURSOR =°.@ ICURSOR + 12; 
: 857 0954 Q"DCURSOR = CHSMOVE ( 
; 858 0955 .Q_VALUE_DESCCDSC$W_LENGTH) 
> 859 0956 -Q-VALUE~DESCLDSC$A~POINTERJ, 
: 860 0957 -Q-DCURSOR) ; 
: 861 0958 5 
; 86 0959 3 
: Bee Boe ELSE 
> 865 0962 4 SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 
: bee O368 3 END m" : 
: 868 0965 5 IF .STATUS EQL CLIS _NEGATED OR .STATUS EQL CLI$_LOCNEG 
: $33 bee$ 5 THEN GIN 
: 871 0968 3 Q_ICURSOR(0,0.16.0) = 0; 
: 87 0969 3 Q"ICURSORE2.0.16.0] = SJC$_NO_CHARACTERISTICS; | 
: 87 0970 3 Q~ICURSOR(4,0,32.0] = 0; | 
: 874 0971 ; Q7ICURSOR(8,0,32,0) = 0; 
: 875 097 Q-ICURSOR = ".G_ICURSOR + 12; 
: 876 0973 2 END; 
: 877 0974 1 END: 
00FC 00000 ENTRY PARSE_CHARACTERISTICS, Save R2,R3.R4,R5,R6,-; 0887 
57 000000006 00 9E 00002 OVAB LIBSSTOP, R7 ; 
04 AC DD 00009 PUSHL SC : 0921. 
000000006 00 01 FB 9000¢ CALLS aT, CLISPRESENT ; 
56 50 DO 0001 MOVL RO, STATUS ; 
79 56 E9 00016 BLBC STATUS ¥ F 09232 
58 DD 99019 1$: PUSHL  Q_VALUE_DESC > 0925 | 
04 AC 0D 0001B PUSHL ESC : 
000000006 00 98 FB OO01E CALLS #2, cLISGET VALUE : 
6A 2 E9 000 BLBC : 
A DD 00028 PUSHL  @ _OCURSOR > 0929 
06 «OA po OO2A PUSHL 4TQ VALUE DESC) ; 0928 
7E 6 C 00020 MOVZWL 9 ~FAL UE BESC), -(SP) 3 
000000006 90 g FB 09 CALLS BSCVT_DTB : 
é 0 £9 00 BLBC : 
0000007F «BF 6A D1 00 A CMPL ye #127 : 0932 
C 18 00041 BLEGU 2$ ; 
04 Ac DD 00043 PUSHL  _DESC > 0934 
3 DD G46 PUSHL Q~VALUE_DESC : 
2 DD 0004 PUSHL #2 3 


——— 
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v04-000 : 122800= 138s 13:08:34 CLIUTL.SRCJJBCCMDPRS.B832;1 
59 DD 0004A PUSHL Q_MESSAGE 
7 4 FB OO4¢ CALLS &&% L1gSSTOP 
B 000D0006 8F DO O004F 2s: ove #851 (Q_ICURSOR)+ 
B A DE 00056 MOVAL  (Q_DCURSOR)?, (Q_ICURSOR)+ 
8B D4 0099 CLRL  (Q7ICURSOR)+ 
BC 11 00058 BRB 1$ 
0000v CF 9F 0005D 38 PUSHAB SYMB_KEYS 
0000v cr 9F 00061 PUSHAB SYMB-STATES 
8 DD 00065 PUSHL Q_VACUE_DESC 
FCB? sCF 0 FB 0067 CALLS #3, CALC_TPARSE 
15 50 €9 0006C BLBC =—s-«RO,. 4S 
a 68 80 O006F MOVW § (Q_VALUE_DESC), (Q_ICURSOR)+ 
fe ¢ 8B : MOVW #12, (Q TCURSOR)+ 
88 5A DO 0007 MOVL Q_DCURSOR, (Q_ICURSOR)+ 
88 D4 00078 CLRL_  (O_ICURSOR)+ 
6A 06 88 68 28 0007A MOVC3 (Q7VALUE DESC), @4(Q_VALUE_DESC), - 
(Q-DCURSOR) 
5A 53 DO 0007F MOVL 3, Q_DCURSOR 
95 11 00082 BRB 18 
046 AC DD 00084 4$: PUSHL  Q_DESC 
58 DD 00087 PUSHL Q-VALUE_DESC 
02 dD 00089 PUSHL #2 
59 DD 00088 PUSHL  Q_MESSAGE 
67 04 FB 0008D CALLS #%, LIBSSTOP 
87 11 00090 BRB 
000000006 8F 56 D1 00092 5$: CMPL STATUS, #CLIS$_NEGATED 
09 13 00099 BEQL 
000000006 8F 56 D1 00098 CMPL STATUS, #CLIS_LOCNEG 
09 12 000Ac BNEG 7 
8B 000E0000 8F DO O0DA4 6S: MOVL #917504, (Q_ICURSOR)+ 
8B 7C OOOAB CLRO = (Q_ICURSOR)? 
04 OOOAD 7$: RET 


; Routine Size: 174 bytes, Routine Base: CODE + 02E9 
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4 444 af? : GLOBAL ROUTINE PARSE _CHAR_NUMBER (PARSE _PARAMETERS_): PARSE _LINKAGE= 

: + 977 1 lee 

: ¢ 978 1! 

; 88 0979 1 ! FUNCTIONAL DESCRIPTION: 

; 884 3444 1! his routine parses a characteristic number, making an entry in 

; HH 449 ; : the job controller parameter List. 

; 887 0985 1 ! INPUT PARAMETERS: 

3 0984 1! Standard parser parameters. 

; 889 0985 1! 

; B30 9 1 ! IMPLICIT INPUTS: 

: 91 9 7% NONE 

; 89 988 1! 

; +89 0989 1 ! OUTPUT PARAMETERS: 

: 894 0 1! NONE 

; 895 0991 1! 

: 96 4444 1 ! IMPLICIT OUTPUTS: 

; 897 0993 1! NONE 

; 898 0994 1! 

; 899 0995 1 ! ROUTINE VALUE: 

; 900 0996 1! NONE 

; 901 0997 1! 

s 0998 1 ! SIDE EFFECTS: 

3; 0999 1! NONE 

; 904 1000 1! 

> 905 1001 1 !<= 

: 906 Hs 1 

> 907 1003 2 REGIN 

> 908 1004 § PARSE _EXTERNAL_REGISTERS; ! Declare external registers 

; 909 1005 LOCA 

: 910 1006 § STATUS; 

; 911 1007 

3 at 1008 

; 91 1009 CLISGET_VALUE(.Q_DESC, .Q_VALUE_DESC); 

; 914 1010 IF 

; 915 1011 BEGIN 

; 916 Ile ; IF ae Avery! DTB 

: 917 101 E_DESCE eDscSu LENGTH], .Q_VALUE_DESCCDSCSA_POINTER], 

; 918 1014 o- ~DeuR MER 

; 919 1015 

; 920 1016 TRUE 

: 921 1017 ELS 

; 356 1018 -Q_DCURSOR(O,0,32.0] GTRU 127 ' 0 <= N <= 127 

s 92 1019 

3 924 1360 THEN 

3; 925 1021 SIGNAL _STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 

$ 9g6 10 ; 

; 9 10 

; 928 1024 Q_ICURSOR 2: 16,0) = 4; 

3 44 1025 Q- ICURSOR(2,0,16, = SJC$_CHARACTERISTIC_NUMBER; 

: 9 10 6 QI CURSORES 4. 3 703 = .Q_DCURSOR; 

> 931 10 o° CURSOR 8, = 6; 

: 932 1028 2 Q7ICUR .@_ICURSOR + 12; 

; 93 1029 Q~ DEURSOR = -Q"DCURSOR + 4; 

: 934 1030 ERD; 
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JBCCMDPRS Job Controller Command Parsing Utilities 15 Sep-1984 :09:18 AX-11 Bliss-32 V4.0-7 Page 31 
| wOe=000 ° 12-8 08-13be 90:88: 4 CLIUTL.SRCJUBCCMDPRS. 8 2:1 . (14) 
0000 £008 ENTRY PARSE CHAR NUMBER, Save nothing 3; 0975 
58 DD 0000 PUSHL Q_VALOE_DESC : 1009 
04 at DD 00004 PUSHL @Q : 
00000000G 00 02 FB 44 CALLS #2, CLISGET VALUE 3 
5A DD 000 PUSHL @Q : 1014 
06 «AB bd 0001 PUSHL 4TQ VALUE DESC : 1013 
7E 68 C 0001 MOVZWLE (Q_VAL ae -(SP) : 
000000006 00 9 4 88518 CALLS #3, iBs stv T_DT 1B $ 
09 0 €9 00010 LBC $ 
0000007F &F 6A D1 000 9 CMPL (Q°DCURSOR), #127 : 1018 
10 18 000 BLEQU 2$ 3 
04 AC DD 00029 1$: PUSHL  Q_DESC : 1021 
58 DD 0002C PUSHL Q-VALUE_DESC 3 
26 DD 000 3 PUSHL an : 
59 DD 000 PUSHL 3 
000000006 00 04 FB 00032 CALLS a “pias! 3 
8B 00000004 8F DO 00039 2s: MOVL #35 (or ICURSOR) + + 102 
8B BA DE 90049 MOVAL CURSOR)?, (Q_ICURSOR)+ + 102 
8B D4 0004 CLRL (O7 PEURSOR) + : 10¢ 
04 00045 RET : 10 


; Routine Size: 70 bytes, Routine Base: CODE + 0397 
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; g 19 1 : GLOBAL ROUTINE PARSE_COMMA_LIST(PARSE_PARAMETERS_): PARSE_LINKAGE= 
; 938 10 g 1 te¢ 

; 939 1034 1! 

; 940 1035 1 ! FUNCTIONAL DESCRIPTION: 

; 941 10 § 1! This routine parses a pean Sree whose value is a comma-separated List of 
3 ars 18 , ' arbitrary strings, making an entry in the job controller parameter List. 
; 944 1039 1 =! INPUT PARAMETERS: 

> 9465 1040 1! Standard parser parameters. 

; 946 1041 1! 

; 947 Lk 1 ! IMPLICIT INPUTS: 

; 948 1 1! NONE 

3 949 1044 1! 

; 950 1045 1 ! OUTPUT PARAMETERS: 

; «951 1046 1! NONE 

; 926 1047 1! 

; 1048 1 ! IMPLICIT OUTPUTS: 

>; 9546 1049 1! NONE 

; We 1050 1! 

; 956 1051 1 ! ROUTINE VALUE: 

3 Por 1036 1! NONE 

>; 958 1053 1! 

; 959 1054 1 ! SIDE EFFECTS: 

: 960 1055 1! NONE 

> 961 1056 1! 

; 96 1057 1 !-<=- 

:; 996 1058 1 

: 964 1059 BEGIN 

> 965 1060 PARSE_EXTERNAL_REGISTERS; ! Declare external registers 
; 966 1061 LOCAL 

; 967 1008 FIRST, 

; 968 106 STATUS; 

; 969 1064 

; 970 1065 

; 971 1066 STATUS = CLISPRESENT(.Q_DESC); 

: 972 1067 2 IF .STATUS 

; 973 1068 THEN 

; «974 1069 BEGIN 

; 975 1070 FIRST = TRUE; 

: 976 1071 Q_ICURSORLO,0,16,0) = 0; 

; 97 1078 Q-ICURSOR(2.0.16.0) = .0_P1; 

; 978 107 Q_ICURSOR $°0°85°03 = .Q_DCURSOR; 

; 979 1074 Q ICURSOR[8,0,32,0) = 0; 

3 980 1075 WAILE CLISGET.VALUE(.Q_DESC, .Q_VALUE_DESC) DO 

; «981 1076 4 BEGIN 

3 HT 1077 4 IF TESTBITCCCFIRST) 

; 1078 4 THEN 

; 984 1079 5 BEGIN 

; 985 1080 (,.Q_ DCURSOR)<0,8> = 2%C°,'; 

; 986 1081 Q DCURSOR = .Q DCURSOR + 1; 

: 987 1082 Q-ICURSORLO,0,76,0] = .Q_ICURSORCO,0,16,0) + 1; 
: Oho 108% 4 0_1CORSBRCO,0,16.03 

e e = 

: 990 1988 4 -"".0_ 1 CURSOR § 16,0] + .Q_VALUE_DESCCOSC$W_LENGTH); 
; 991 1086 4 Q_DCURSOR = CH 

: 992 1087 4 .Q_VALUE_DESCCDSC$W_LENGTH), 
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Job Controller Command Parsing Utilities 4 09:18 AX-11 Bliss-32 V4.0-74 
° 14-Sep-1984 00: ORs se Let iuTL sre i JBC CMDPRS .B 2;1 
O88 4 -Q_VALUE_DESCCDSCSA_POINTER], 
089 4 . .Q-DCURSOR) ; 
991 Q,1CURSOR = .Q_ICURSOR + 12; 
$38 IF_.STATUS EQL CLIS_NEGATED OR .STATUS EQL CLIS_LOCNEG 
094 2 THEN 
832 Bee NRSOR 0) = 0 
. o = . 
699 Q- 1 CURSOR 7 0 = ,0_P2; 
098 Q-ICURSOR(4.O. = 0; 
Q-ICURSOR[8,0,32,0) = 0; 
100 Q-ICURSOR = .6 JCURSOR + 12; 
101 END: 
102 1 END; 
OOFC 00000 ENTRY PARSE_COMMA_LIST, Save R2,R3,R4,R5,R6,R7 
04 aC DD 00002 PUSHL Q 
000000006 00 01 FB 00005 CALLS #T, CLISPRESENT 
57 50 pO 0000¢ MOVL RO. STATUS 
39 57 £9 0000F BLBC STATUS, 4$ 
56 01 DO 00012 MOVL 1, FIRST 
6B B4 0001 CLRW (Q° ICURSOR) 
02 AB 08 AC BO 00017 MOVW Q_P1, 2(Q_ICURSOR) 
04 AB 5A DO 0001C MOVL Q-DCURSORT 4(Q_ICURSOR) 
08 AB 04 00020 CLRL 8TQ_ICURSOR) 
58 DD 00023 1$: PUSHL Q_VALUE_DESC 
04 AC DD 00025 PUSHL 
000000006 00 02 FB 00028 CALLS #2, CLISGET_VALUE 
16 50 €9 0002F BLBC ; 
05 56 00 £4 00032 BBSC #0, FIRST, 2$ 
BA 2C 90 00036 MOVB #44, (Q DCURSOR)+ 
6B B86 00039 INCW (Q_ SOR) 
68 68 AO 00038 2$: ADDUe (Q7VALUE_DESC), (Q_ICURSOR) 
6A 04 B88 68 28 O0003E MOVC (Q"VALUE-DESC), @4%Q_VALUE_DESC), - 
(Q-DCURSOR) 
SA 53 D0 00043 MOVL R3> Q_DCURSOR 
dB 11 0046 BRB 1$ 
58 ¢ CO 00048 3$ ADDL2 #12, Q_ICURSOR 
000000006 &F 4 b 0048 as CMPL TATUS; #CLIS_NEGATED 
000000006 8F 57 Di 00054 CMPL STATUS, #CLIS_LOCNEG 
08 12 00058 BNEQ 
B4 0005D 5$ CLRW (Q_ICURSOR) + 
88 Oc ac 80 005F MOVW Q P2, (Q ICURSOR)+ 
8B 7C 0006 CLRO © (G_ICurSOR)+ 
04 00065 68 RET 
102 bytes. Routine Base: CODE + 0300 
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; Routine Size: 


Job Controller Command Parsing Utilities 


77 bytes, 


0 6 
OOOOOOFE 8&F 


000000006 9° 


000000006 00 


000000006 00 
88 
88 
88 


Routine Base: 


00 

58 

04 05 
04 ‘ 
08 

93 

0 

01 

50 

10 

046 AC 
33 

5 

04 

04 

08 AC 
8A 

88 
CODE + 0443 


oul oe "OTT 9 -VGOMWwoOmMnOoVToO 


fF FMOowWIIT 9908 -wownrc7e owroVTe 
SOOoOooooooooooQoooooooo°oo 


3 
14. -Sep-19 
14-Sep-19 


Be 92:08:56 


ENTRY PARSE COPIES, 


PUSHL a-pesc a 


AX-11 Bliss-32 V4.0-7 
CLIUTL.SRC JBCCHDPRS.B 2;1 


Save nothing 


CALLS ISGET_VALUE 


B 
PUSHL Q RO, CURS 


RSOR 
PUSHL  4TQ VALUE_DESC 
MOVZWL (Q_VALUE_BESC) 
CALLS #3, iBstvt $ 


BLBC RO, 


516 


$C) 
-(SP) 


SUBL3 #1, (Q_DCURSOR), RO 
CMP 


RO, #254 
2s 


Q_DESC 
PUSHL  Q7~VALUE_DESC 


( 
CLRL (Q7 I CURSOR) + 
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GLOBAL ROUTINE PARSE _CPUTIME (PARSE _PARAMETERS_): PARSE_LINKAGE= 


; 1067 


3 3 
3) 
3 
3 } 
3 7 
3 3 
eS. 
3 3 
3 3 
3; 7 
3; 7 
3 3 
3% 
3 7 
3 7 
3 3 
3 9 
3 7 
3; 1 
3 7 
3; 7 
.% 
3 
3 7 
% 
3 Y 
3 7 
3 7 
3 7 
3; 7 
3 7 
3; 7 
3 3 
3% 
3% 
3 7 
3; 7 
3; 1 
3 7 
3 7 
3; 7 
31 
; 3 
3 7 
3; 7 
3; 7 
3% 
3 7 
3; 
3 7 
3 7 
3; 7 
3; 
3; 7 
3; 7 
5 7 


‘e¢ 
a 


i FUNCTIONAL DESCRIPTION: 
This routine parses the /CPUTIME qualifier, making an entry in 
the job controller parameter List. 


INPUT PARAMETERS: 
Standard parser parameters. 


IMPLICIT INPUTS: 
NONE 


Wrn—o 


AAAS 


BREE Jao Oto 


OUTPUT PARAMETERS: 
NONE 


SRReeIIISS 


IMPLICIT OUTPUTS: 
NONE 


& 
uw 


ooo 
Le 


ROUTINE VALUE: 
NONE 


Oo 


SIDE EFFECTS: 
NONE 


ee ee ee ee ee 


PALA LSSHOVRA RUN HOSBNOAE IN SOD We 


BEGIN 
PARSE _EXTERNAL_REGISTERS; ! Declare external registers 


o33938888 


33 


If CLISGET_VALUE(.0_DESC, -Q_VALUE_DESC) 
BEGIN 
LOCAL 

TIME VALUE: VECTOR(2), 
REMAINDER; 


IF _CALL_TPARSE(.0_VALUE_DESC, NONE STATES, NONE_KEYS) 


SOQOoooooovowovo 
LSARanlsSeS 
PREP ERWUWERES ES SWWWIWWIIIonnony) 4 2 es 


1 
RAL_ZERO; 


a ee ee ee ee ee ee ee ee ee ee eee SY 


PORORONY —  O * 
VUVVS eu ARUN OSR Ve ARS 


1 
2 
2 
BEGIN 
Q_ICURSOR 9.0.16.0 = 0; 
Q-ICURSORE2.0,16,0) = .Q_P2; 
Q7 ICURSOR 4.0.3 °0) = 0; 
Q~ICURSOR[8,0,32,0) = 0; 
07 O51 CURSOR =".@ ICURSOR + 12; 
309 ELSE IF CALL_TPARSE(.Q_VALUE_DESC, INFI_STATES, INFI_KEYS) 
a , 
ig Qn] 4 Pi; 
14 I I 
15 1 
16 1] S 


or. 
-_ 
— mv 


ounnn 


4 


IN 
CURSOREO.0.16, 
CURSOR[2.0.16. 
CURSORES 0,32. 
CURSORS, 

CURSOR =" .0_ICUR 


————_-- 


secaaes 


bt se 8 a pd 8 4 tt 


OWONOVUVE WN SO OONOUEWN— 
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. 10280071 38¢ 13 OB 34 ECL TuTL.SRCIJBCCMDPRS 
1217 4 END 
1 18 3 ELSE 
1219 & BEGIN 
1220 4 If 
1221 BEGIN 
: IF NOT LIBSCVT_DTIME(.Q_VALUE_DESC, TIME_VALUE) 
i 3 ELS ~— 
6 i (EDIV(SREF (-200000), TIME_VALUE, .Q_DCURSOR, REMAINDER) AND PSLS$M_V) NEQ 0 
1228 4 THEN 
4 4 SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 
1231 4 
1 ; 4 Q_DCURSORCO,0.32,0) = .Q_DCURSORCLO,0,32,0] * 1; 
1233 4 IF .REMAINDER NEQ 0 THEN-Q_DCURSORLO,0,52,0] = .Q_DCURSORCO,0,32,0) + 1; 
1234 4 Q_ICURSORE9,0,16,0] = 4; 
1235 4 Q-ICURSORE2,0.16,.0) = .0_P1; 
1 4 Q-I CURSOR 4-0.32.0 = ,Q-DCURSOR; 
1237 4 Q-ICURSOR[8,0,32,0) = 0; 
1238 4 Q"ICURSOR =".G_ICURSOR + 12; 
1239 4 Q~DCURSOR = .Q-DCURSOR + 4; 
1240 3 END: 
124i 2 END; 
1242 1 END; 
000c 00000 .ENTRY PARSE_CPUTIME, Save R2,R3 
53 FB76 CF i 00002 MOVAB CALL_TPARSE, R3 
5€ 08 C2 00007 UBL2 #8, SP 
58 DD OOOOA PUSHL  Q_VALUE_DESC 
04 AC DD 0000C PUSHL Q 
000000006 00 og FB 0000F CALLS a. CLISGET_VALUE 
01 5 E 00016 BLBS RO, -1$ 
4 0001 RET 
0000v CF 9F QOO1A 1$: PUSHAB NONE_KEYS 
0000v cr 9F OO1E PUSHAB NONE~STATES 
§ DD 000 PUSHL Q_VACUE_DESC 
63 0 FB 0024 CALLS #3, CALC _TPARSE 
0C 50 E 9 7 BL " 
68 B4 A CLRW 34 JCURSOR? 
02 AB 0c AC BO 0002C MOVW  Q_P2, 2(0_ICURSOR) 
04 AB D4 00031 CLRL 4%0_fcuRSOR) 
62 11 000 BRB 7$ 
0000v CF 9F 00036 28: PUSHAB INF I_KEYS 
0000v cr 9F OO03A PUSHAB INFI-STATES 
§ DD 095 PUSHL  _VACUE_DESC 
63 9 FB 0 CALLS #3, CALC_TPARSE 
10 0 € 004 BLBC : 
68 04 80 004 MOVW #4, (Q_ICURSOR) 
02 AB 98 AC E 0049 MOVW  Q.P1, 2(0 ICURSOR) 
04 AB FB22 CCF ‘ 004 MOVAB LITERAL ZERO, 4(Q_I CURSOR) 
42 11 00054 BRB $ 
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1192 


1200. 
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yO4s000 ° eet Ta a aT tbe ta Bice ee Pe ge 43 
4100 8f 6B 6 3%: PUSHR gonna. § : 1222 
000000006 00 3 FB 8 CALLS bScvT _DTIME : - 
£ E 61 BLBC 4 : | 
52 6A 6E FFFCF2CO 8F 7B 00064 EDIV ro 200800, TIME_VALUE, (Q_DCURSOR), - : 1226 
30 DC 0006D MOVPSL : 
10 50 1 €1 O06 BBC RO, 5$ : 
04 AC DD 00073 4$ PUSHL Q_ + 1229 
DD 0076 PUSHL Q-VALUE_DESC : 
DD 07 PUSHL #2 : 
DD 0007A PUSHL Q MESSAGE : 
000000006 00 04 Fe oo7¢ CALLS #@, LIBSSTOP : 
6A C 83 5$ MULL2 #2, (Q DCURSOR) ; 1232 
5 D3 00086 TSTL REMAINDER + 123 
02 13 000 BEQL 6-«6$ : 
A 06 0008A INCL (Q_DCURSOR) : 
68 4 -BO 0008C 6$ MOVW #47 (Q_ICURSO :1 34 
02 AB 08 AC BO 0008F MOVW Q.P1, 2(Q_ICURSOR) : 1235 
04 AB BA DE 00094 MOVAL (0 peURSOR) +— 4(Q_I CURSOR) + 1236 
08 AB D4 00098 7$ CLRL_ 8(0_ICURSOR) : 1637 
58 0c co 00098 ADDL2 #127 Q_ICURSOR + 1207 
4 0009E RET + 1242 


; Routine Size: 159 bytes, Routine Base: CODE + 0490 
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Job Controller Command Parsing Utilities 16- 52-1964 90 03748 AX-11 Bliss-32 V4. 


Pa 9 
12-Sep-19 O TUTL SRE LIBECMDPRS BS2:1 ada 31 


; i 1 43 ’ GLOBAL ROUTINE PARSE_ENTRY(PARSE_PARAMETERS_): PARSE_LINKAGE_ VALUE= 
EHS HRB ase 

> 1155 1 23 1 | FUNCTIONAL DESCRIPTION: 

3 11 : 1 rt 1! This routine parses the /ENTRY qualifier, making an entry in 
3 i i : rs : : the job controller parameter List. 

: 1159 1 2 1 | INPUT PARAMETERS: 

: 1199 : 25 : } Standard parser parameters. 

; 1168 1254 1°! IMPLICIT INPUTS: 

in oc i ate 

> 1165 1 28 1 | OUTPUT PARAMETERS: 

: He? 1589 1 | a 

; 1168 60 ; IMPLICIT, QUTPUTS: 

: 1170 1262 1! 

+ 1171 Hy 1 ' ROUTINE VALUE: 

: 1176 ; rf: ; As returned from CLISGET_VALUE. 

: 117% 1366 1 ' SIDE EFFECTS: 

: 1175 1267 1: NONE 

: 18 1569 1 | 

: 118 hg 

: 1180 1 1 PARSE _EXTERNAL_REGISTERS; ! Declare external registers 
4 1182 i a anes STATUS 

eR : 

: 1185 1277 2 STATUS = CLISGET_VALUE(.Q_DESC, .Q_VALUE_DESC); 

> 1186 1278 IF . STATUS 

TH § accu 

> 1189 1281 IF NOT LIBSCVT DTB( 

: 1190 1288 .0_VA E DESCLDSCSu _LENGTH], .Q_VALUE_DESCCDSCS$A_POINTER], 
; 1191 1283 O-DCURSOR) 

: 1188 1 se SIGNAL_STOP(.Q_MESSAGE, 2, .@_VALUE_DESC, .Q_DESC); 
: 1195 1 

: 1196 1 88 Q_ICURSOR(0.0,16.0) = 4; 

+ 119 1289 Q-ICURSORE2,0,16,0) = SJC$_ENTRY_NUMBER 

: 1198 1290 Q"ICURSORE4, 3 70) = .Q_DCURSOR? 

: 11 1291 O71 CURSORL8, = 6; 

; 1200 1 3 Q"ICURSOR =". ICURSOR + 12; 

+ 1201 129 Q"DCURSOR = .Q~DCURSOR + 4; 

: 1 0@ 1294 END; 

3 ’ 0 ' 95 

: 1 $s 1 3 . STATUS 

+ 1206 1298 1 END; 
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0004 0009 .ENTRY PARSE_ENTRY, Save R2 : 
58 DD 00 PUSHL  _VALOE_pEs¢ : 
04 AC DD 0 PUSHL  Q7DESC ; 
000000006 99 FB 00007 CALLS #2, ¢ CLISGET _VALUE : 
D 00 MOVL ; 
2E 7 1 BLBC STATUS. + 1278 
A 0D. 00014 PUSHL 0 _DCURSOR + 1283 
06 A pp 0 18 PUSHL  4TQ VALUE DESC) + 1282 
7E C 0001 MOVZWL (9_VALUE BESC), (SP) : | 
000000006 00 Fe 1 ALLS #3; 18 tvT_oTé : 
10 E LBS a F 
04 AC OD 6 PUSHL  Q_DESC : 1285 
58 DD 000 PUSHL Q-VALUE_DESC ; 
p DD 99 B PUSHL : 
DD 0002D PUSHL Q ME SSAGE ; 
000000006 00 4 FB O02F CALLS &% TOP ; 
8B 001E0004 8F DO 00036 1$: MOVL ni bes0Be URSOR) : 1288 
88 BA DE 00030 MOVAL (Q_D RSOR yes" Q_IC URSOR) + + 1290 
8B 04 00040 CLRL. (a OCURS + 1291 
50 52 D0 00042 2$ MOVL STATUS, + 1298 
04 0004 RET F 


3; Routine Size: 70 bytes, Routine Base: CODE + 052F 
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14-Sep-1984 


: } 08 ! + } GLOBAL ROUTINE PARSE _EXTEND_QUANTITY(PARSE_PARAMETERS_): PARSE_LINKAGE= 
3: 1210 1301 1 !4¢ 

3 1211 1 8 1! 

3 7 \¢ 1305 1 ! FUNCTIONAL DESCRIPTION: 
3 121 1306 1! his routine parses the /EXTEND_QUANTITY qualifier, making an entry in 
; : 13 ; ? : : the job controller parameter List. 

3 3 18 1 09 1 ! INPUT PARAMETERS: 

3; 121 1308 1! Standard parser parameters. 

3; 1218 1309 1! 

3; 1219 1310 1 =! IMPLICIT INPUTS: 

; 1220 1511 7! NONE 

3; 1221 1 \¢ 1! 

.s ¢ 131 1 ! OUTPUT PARAMETERS: 

3: 122 1314 1! NONE 

3: 12246 + ib ae Be 

3 1225 1 18 1 ! IMPLICIT OUTPUTS: 

3 \§ 6 131 74 NONE 

: 1227 1318 1! 

3; 1228 1319 1 ! ROUTINE VALUE: 

; 1563 1389 1! NONE 

3; 1230 bogie Be 

: 1231 1356 1 ! SIDE EFFECTS: 

; 1S3¢ 1323 1! NONE 

3: 123 1324 1! 

3; 1234 13s? 1 f= 

: 1235 1326 1 

3 iss 1327 BEGIN : 

3 ise 1358 PARSE _EXTERNAL_REGISTERS; ! Declare external registers 
3: 1239 1380 

3 1240 1331 IF CLISGET_VALUE(.Q_DESC, .Q_VALUE_DESC) 

3: 1241 1336 THEN 

; 1506 13 BEGIN 

3; 124 1334 IF 

3 1244 1332 4 BEGIN 

3 1245 1336 4 IF NOT LIBSCVT_DTB( 

3 1246 1337 4 -Q_VALUE_DESCCDSC$W_LENGTH], .Q_VALUE_DESCCDSCSA_POINTER], 
3 1247 1338 4 ~Q-DCURSOR) 

> 1248 1339 4 

3: 1249 1300 4 TRUE 

3; 1250 1341 4 ELS 

; \$3! 1348 ? -Q_DCURSOR(0,0,32,0] GTRU 65535 ' 0 <= N <= 65535 
: 1358 1344 THEN 

: ’ 3¢ 1346 SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 
; 1386 1 <3 

3; 125 1368 Q_ICURSOR g. -16,0) = 4; 

: 1258 1 Q_ICURSOR(2,0,1 8 = SJCS_EXTEND_QUANTITY; 

: 1259 1350 Q_ICURSORL4, 3 e = ,Q_DCURSOR; 

: 1260 132! Q_Icursor([8, 0] = 0; 

> 1261 1 3 Q-ICURSOR = .@_ICURSOR + 12; 

3 1 o¢ 135 Q DCURSOR = .Q_DCURSOR + 4; 

: 150 1354 ERD; 

3 1264 1355 END; 


SORT LS SamRS TOT ORES Sp aR Serr sea eine A . q 
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0000 909 .ENTRY PARSE _EXTEND_QUANTITY, Save nothing : 12 
58 DD On0¢ PUSHL  Q_VALOE_DESC 3 1331 
04 AC DD 060 PUSHL @Q : | 
000000006 90 9 FB 0007 CALLS 4% ISGET_VALUE : 
E9 OOO0E LBC Osi ; 
5A DD 00011 PUSHL Q_OCURSOR + 1338 
06 =#A po eh F PUSHL TQ_VALUE_DESC) 3 1337 
7E 6 C 00016 MOVZWL (Q_VALUE BESC), -(SP) $ 
000000006 00 0 FB 99019 CALLS #3, LIBSCVT_DTB : 
09 50 € 9020 BLBC ~—_—-RO, ; 
QOOOFFFF BF 6A D1 000 CMPL (Q°DCURSOR), #65535 > 1342) 
10 1B 0002A BLEQU 2$ ; | 
04 AC DD 0002C 18 PUSHL Q_DESC : 1345. 
58 DD 0002F PUSHL Q-VALUE_DESC ; 
02 DD 00031 PUSHL #2 g 
59 DD 00033 PUSHL Q MESSAGE ; | 
000000006 00 04 FB 00035 CALLS @% LIBSSTOP F 
8B 00A10004 8F D0 0003C 2$ MOVL  #10551300, (Q_ICURSOR)+ + 1348, 
88 BA DE 00043 MOVAL  (Q_DCURSOR)+,~(Q_ICURSOR)+ : 1350. 
8B D4 00046 CLRL (Q7 1 CURSOR) + : 1351, 
04 00048 3$: RET >; 1355) 
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PRPS SHS HS HRS HS HSS HS SS FS FS FS FSH CHS *S FSFE Fe FEO Fe Fe tere teresa *® Pe Fe rere tere rare te *Ste*S rare *S*S*erterterarteterterea*ere 


memanetied 


4 
| JBCCMDPRS Job Controller Command Parsing Utilities 1b. Sep-1984 9:1 AX-11 Bliss-32 V4.0-74 e 44 
04-000 ° Wengen 19be Soroasse | Len TuT Shes sae chops 6S2;1 29° (20) 


: 1323 1413 Q_ICURSOR 235) . £3 = 0; ; 
: 1324 1414 Q-ICURSOR[2, RY 70] = ,Q_P2; : 
: 1325 1415 O71 CURSORES 4. fee °0] = 0; : 
:1 6 1416 O71 CURSOR 0) = 0: : 
: 1 1417 Q7ICUR "G_ICuRSOR + 12; : 
: 1328 1418 END; : 
: 1329 1419 1 END; : 
007¢ 00000 .ENTRY PARSE_FILENAME, Save R2,R3,R4,R5,R6 : 1356 : 
06 AC DD 90002 PUSHL + 1390 : 
000000006 00 1 FB 0000 CALLS #7, CLISPRESENT : | ; 
56 0 pO 0000¢ MOVL RO. STATUS : : 
3A 6 £9 0000F BLBC = STATUS, 2$ + 1391 : 
58 DD 00012 PUSHL  Q_VALUE_DESC + 1394) ; 
04 AC DD 00014 PUSHL ; ; 
000000006 00 cs FB 00017 CALLS #2, CLISGET VALUE | : | : 
50 6 3¢ 0001E MOV2WL (Q_VALUE_DESC), + 1395 F 
2 D C4 DECL RO™ 5 ; 
26 0 D1 00023 CMPL RO, #38 : | ; 
10 1B 0006 BLEQU 1$ : | : 
04 AC DD 00028 PUSHL  Q_DESC : 1397 : 
58 0D 900¢8 PUSHL Q-VALUE_DESC : : 
9¢ DD 0002D PUSHL <. : i 
59 DD 000¢F PUSHL ; | : 
000000006 00 04 FB 00031 CALLS ze STOP : : 
8B 68 B80 00038 1S: mMOVW = (Q yhige “DESC), (Q_ICURSOR)+ > 1400. 
88 08 AC 80 00038 MC old ‘ _P1, (Q7ICURSOR) + : 1401. 
88 SA DO 0003F MOVL DCURSOR, (Q_ICURSOR)+ : 1408 
8B D4 00042 CLRL to” TCURSOR) + : 1403 | 
6A 046 B8 68 28 00044 MOVC3 (a =peunson) @4(Q_VALUE_DESC), - : 1408 | 
5A 53 D0 00049 MOVL R3, URSOR 3 
000000006 8F 36 Dt 9004¢ 2s: CPL CT ATUS. wr itety _NEGATED : 1410. 
000000006 8F 56 01 00055 CMPL STATUS, #CLIS_LOCNEG ; 
08 12 0005¢ BNE ; | 
8B B4 0005E 3s: CLAW CURSOR > 1413 
88 0c AC 80 0006 MOV oP (Q T CURSOR) + > 1414, 
8B 7C 00064 CLRO to. ICURSOR) + > 1415) 
04 00066 4$ RET > 1419 | 


; Routine Size: 103 bytes, Routine Base: CODE + OSBE 


F 4 

JBCCMDPRS Job Controller Command Parsing Utilities 16-Sep-1984 00:09:18 AX-11 Bliss-32 V4.0-74 Page 45 
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3 ! 1 by 9 : GLOBAL ROUTINE PARSE_FORM(PARSE_PARAMETERS_): PARSE_LINKAGE= 
> ¢ 14 § 1 tee 

3 1 14 1! 

; 1335 1426 1 =! FUNCTIONAL DESCRIPTION: 

3; 1 1425 1! his routine parses the /FORM qualifier, making an entry in 
3 : ‘ 1° § : : the job controller parameter List. 

3; 1339 1428 1 ! INPUT PARAMETERS: 

: ; ? 3 4 : Standard parser parameters. 

. ¥ ri} 1431 1°! IMPLICIT INPUTS: 

3 3 14 ¢ _s NONE 

3: 1344 143 2% 

3; 1345 1434 1 ! OUTPUT PARAMETERS: 

3 1346 1435 1! NONE 

3; 1347 1436 1! 

3; 1348 ae 14 1 ! IMPLICIT OUTPUTS: 

3 1349 1438 1! NONE 

; 1350 1439 1! 

3; 1351 1440 1 ! ROUTINE VALUE: 

; 1328 1441 1! NONE 

3; 135 be | 1! 

3 1354 144 1 ! SIDE EFFECTS: 

s 1355 1444 1! NONE 

F 1328 1445 1! 

3; 1357 1446 1 !-- 

3; 1358 1447 1 

3 1359 1448 2 BEGIN 

; 1360 1449 PARSE _EXTERNAL_REGISTERS; ! Declare external registers 
3; 1361 1450 

3 1368 1451 

3: 136 1626 IF CLISGET_VALUE(.Q_DESC, .Q_VALUE_DESC) 

3: 1364 145 THEN 

3; 1365 1454 BEGIN 

3; 1366 1455 IF Lseecyy 

3: 1367 1456 VALOE BESsctoscsu LENGTH], .Q_VALUE_DESCCDSCSA_POINTER], 
: 1368 1457 -Q-DCURSOR) 

: 130 1458 

3; 1370 1459 4 N 

3; 1371 1460 4 Q_ICURSOR(0,0,16.0) = 4; 

3 138 1461 4 _ICURS 2.0,16,0) = SJC$_FORM_ NUMBER; 

3; 137 re ¢ 4 Q_ICURSOR 4°0°3 0) = .Q_D0CURSOR; 

3 1378 1465 4 Q_ICURSOR(8,0 0 0;~ 

> 1375 1464 4 Q7ICURSOR = a TCURSOR + 12; 

3 1376 1465 4 Q-DCURSOR = .Q “DCURSOR + 4; 

3; 1377 re 4 ERD 

; 1378 146 ; ELSE IF CALL_TPARSE(.Q_VALUE_DESC, SYMB_STATES, SYMB_KEYS) 
3; 1379 1468 THEN 

: 1380 1699 4 BEGIN 

; 1381 1470 4 Q_ICURSOR 2:0:1 ° = .Q VALUE _DESCCDSCS$W_LENGTH); 

: 1386 1471 4 Q- ICURSOR 0.1 2: = ets FORA _NAME; 

3; 138 1078 4 Q_ICURSORL4 8° 3 ° = 6°- DTURSOR; 

s 1 1475 4 Q- seumenece o. 3 

> 1385 1474 4 Q-ICUR 3 ie + 12; 

3 3 1475 4 O"DCURSOR = ewsoye’ 

; 1387 1476 4 -Q_VALUE_DESCCDSCS$W_LENGTHI, 


Ricoceshiscreiandoistonkares eiadimocrs ciate = ; 
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¥055000 ’ 12286871382 13:08:34 CLIUTL.SRCJJBCCMDPRS.B32;1 and \ 
; 1388 1477 4 -Q_VALUE_DESCCDSCSA_POINTER], : 
; 1389 1478 4 .Q-DCURSOR) ; “ 
; 1390 1479 4 END 
: 1391 1480 ELSE 
> 139 1481 SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 
> 139 1486 END; 
: 1394 148 END; 
003¢ 00000 .ENTRY PARSE_FORM, Save R2,R3,R4,R5 : 1420 
58 OD 9000¢ PUSHL @_VALOE_DESC : 1289 
04 AC DD 00004 PUSHL Q-DESC : | 
000000006 90 02 FB 00007 CALLS #2, CLISGET_VALUE ; | 
5 50 €9 0000E BLBC 0, 3$ ; | 
5a DD 00011 PUSHL  @_DCURSOR > 1457. 
04 as bp 00013 PUSHL 4TQ VALUE_DESC) > 1456 
7E 68 3C 00016 MOVZWL (Q_ VALUE BESC), -(SP) : 
000000006 00 03 FB 00019 CALLS #3, LIBSCVT_DTB : | 
OD 0 £9 00020 BLBC 1$ : | 
88 00370004 8F 00 00023 MOVL #3604484, (Q_ICURSOR)+ > 1460. 
5B BA DE 0002A MOVAL  (Q_DCURSOR)+> (Q_ICURSOR)+ : 1468 
88 04 0002D CLRL  (Q7ICURSOR)+ > 1463, 
04 000¢F RET > 1455, 
0000v CF 9F 00030 1$: PUSHAB SYMB_KEYS + 1467 
0000V CF 9F 00034 PUSHAB SYMB~STATES : | 
58 DD 00038 PUSHL Q_VACUE_DESC ; 
FOAS =F 03 FB OO03A CALLS #3, CALC_TPARSE : 
14 50 £9 0003F BLBC ; ; | 
eR 68 80 00042 MOVW  (Q VALUE_DESC), (Q@_ICURSOR)+ > 1470, 
88 36 BO 0004 MOVW  #5%, (Q ICURSOR)+ 5 1471, 
88 5A DO 00048 MOVL Q_DCURSOR, (Q_ICURSOR)+ : 147g 
8B D4 00048 CLRL_  (O_ICURSOR)+ > 1473, 
6A 04 88 68 28 00040 MOVC3 (O“VALUE DESC), @4(Q_VALUE_DESC), - > 1478 | 
SA 53 00 00052 MOVL R3; Q_DCURSOR 3 | 
04 0005 RET > 1467) 
04 AC DD 00056 28: PUSHL  Q_DESC > 1481 
58 DD 00059 PUSHL Q-VALUE_DESC ; | 
02 DD 00058 PUSHL #2 ; | 
59 DD 0005D PUSHL Q MESSAGE ; | 
000000006 00 04 FB 0005F CALLS #%, LIBSSTOP ; 
04 00066 3$: RET > 1483 
; Routine Size: 103 bytes, Routine Base: CODE + 0625 
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ow 
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14-Sep-1984 CLIUTL. 
GLOBAL ROUTINE PARSE_FORWARD(PARSE_PARAMETERS_): PARSE_LINKAGE= 
lee 


i FUNCTIONAL DESCRIPTION: 
: This routine parses the /FORWARD qualifier, making an entry in the 
job controller parameter List. 


i INPUT PARAMETERS: 
: Standard parser parameters. 


i IMPLICIT INPUTS: 
i NONE 


-32 
JBC 


3 
: 


WAG 


RAVLSSHVEF 
ooo 
Wwr—OOo0 


oO 
w 


i OUTPUT PARAMETERS: 
NONE 


] 
1 
] 
] 
' 
' 
] 
i] 
] 
1 
] 
' 
i IMPLICIT OUTPUTS: 
: NONE 

' ROUTINE VALUE: 

; NONE 

i SIDE EFFECTS: 

; NONE 

' 


BEGIN 
PARSE _EXTERNAL_REGISTERS; ! Declare external registers 


MIMINNNNNININ 2 2 3 2 SS | OO 


IF CLISPRESENT(.Q_DESC) 
THEN 


BEGIN 
IF CLISGET_VALUE(.Q_DESC, .Q_VALUE_DESC) 


Dt ak ek ek ek ek kkk ad ee ee ee ke kk ek kd kk ed ek ad ed ek ed ed ad 


7 
35 BEGIN 
36 IF NOT LIBSCVT ere 
37 -Q_VALUE_DESCCDSC$W_LENGTH], .Q_VALUE_DESCCDSCSA_POINTER), 
38 -Q-DCURSOR) 


TRUE 
ELSE 
-Q_DCURSORC0,0,32,0] EQL 0 


Pe eee ee ee eee alah sb sb esh sb sb sh bea al ad ealvalealeal eal ealvalealvaleal ae oe ae a ee oe er ot ee et oe ee pt oe et oe 


tt at et ek ek 
funr-0o0 


THEN 
SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 


C$_RELATIVE_PAGE; 
DCTURSOR; 
1 


2; 


si 


URSOR ; 
URSOR = .0_ICURSOR + 


me ee ee a a a a ed ak tk ad od = dd 8 ws dd I 4 4 
em a a at a a a a a td at ts a 2 4 st 9 a 


PEER REEE PW & BWW 3 tt 2 0 tt tt es 


fot ot ot at at at at et tt tt tl et tt 


Win & & & & 
mC OOnoOu 
DAAAAAIIT 


Q_1CURSOREO.0.16. 
Q~ICURSORE2.0.16. 
OQ" ICURSOR[4 .0. 32. 
Q71C 8; 
o7IC = 
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5 1453 1541 & Q DCURSOR = .Q_DCURSOR + 4; 
5 1454 1 4g 4 ERD 
: 1455 1543 3 ELSE 
: 14 6 1544 4 BEGIN 
: 14 1545 4 Q_ICURSOR Q. 16,0) = 4; 
: 14 8 1 46 4 Q-ICURSORE2.0.16.0) = SJC$_RELATIVE_PAGE; 
: 14 1547 4 Q"ICURSOR[S. 3 .0J = LITERAL ONE; 
: 1460 1 48 4 Q-ICURSORES, = 0; 
> 1461 1549 4 Q-ICURSOR =°.G_ICURSOR + 12; 
; 1466 1550 END; 
> 146 1551 END; 
> 1464 1552 1 END; 
0000 00000 .ENTRY PARSE_FORWARD, Save nothing 5 1486 | 
04 AC DD 0000 PUSHL DE : 1516 
000000006 00 gi FB 0000 CALLS #T, CLISPRESENT : | 
0 €9 0000¢ BLBC 3=E._s«aRO._“ SS : 
58 DD O000F PUSHL  @_VALUE_DESC > 1519. 
04 AC DD 00011 PUSHL Q : | 
000000006 99 02 FB 00014 CALLS #2, CLISGET_VALUE ; 
3 50 €9 0001B BLBC ; 
5A DD 0001 PUSHL Q_DCURSOR : 152 
04 AB bp 902 PUSHL 4TQ VALUE DESC) : 152 
7E 68 C 000 MOVZWL (Q_JALUE_BESC), -(SP) 3 
000000006 00 03 FB 00026 CALLS #3, LIBSCVT_DTB : | 
04 50 €9 0002D BLBC —E—saRO.-*18 ; 
ry D3 000 TSTL  (Q°DCURSOR) + 1530 
10 12 00032 BNEG 2$ : | 
04 AC DD 00034 18 PUSHL  Q_DESC : 1533) 
58 DD 00037 PUSHL Q-VALUE_DESC : | 
08 DD 00039 PUSHL ; 
DD 00038 SHL ; 
000000006 00 04 FB 00030 CALLS ‘Gis F 
6B 00880004 8F D0 00044 28: MOVL re 300° ca ICURSOR) > 1536. 
06 AB BA DE 00048 MOVAL (0 _DCURSOR)+> 4(Q_ICURSOR) : 1338 
68 00880004 F BO 000 00 051 3$: MOVL #8912900, (Q@_ICURSOR) : 1545 
04 F920 «CF 00098 MOVAB LITERAL L One “4(Q_ICURSOR) : 1547. 
08 AB 04 0005E 48: CLRL ors > 1548 | 
58 0c 0061 ADDL2 #i2> o 7 F 1340 
4 00064 5$: RET : 1552. 


; Routine Size: 101 bytes, Routine Base: CODE + 068C 
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send - c Aw 
~ os ec ~~ wo 
4 - a vw Wwe 
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lo 4 LJ = uw w je 
w @ = ao w t 
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z oe a | ¥ sent oe . 
wun e So Dace —_ 
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a Cn a v <= weuw mw 
a uw Vv - > owe =e 
a ze a a ‘wD + Of 
i we ° a ws oat wn 2 
w Ow nw 2 ._ >4@a =— WO 
” = ss a - w ae oo 
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= _ + > - at - = A PTT tt 3 az eee 
-_ aw” Cc mw 2@w Ow daw ww _ _ ooo oe nd ° 
_ -oe a@2e =< > w a a« — MNWMONOW QO a 
a ££ <2 & a - rr w wn <= <ss w £€eeees =z 
-~- aw = _ y - Ww > 22> wwooog0cco0ca [vey 
« _ vu _ WwW ive) SL C— ewUVUuUw ay 
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MAAARARD IDOLOS SIOE ENE RENE BODGGO SOOO ROOFS AOS SOSSSSSSSS 
LVLULVLVLVLVLULVLVULV LVL ULL LV LV LV LVL EL VULY LVL LVL LV ELVEN OO oO 

LL EEL 


Or UM TNOPr oh lb 4A CO WUM TO OR. ah tb AA OK UM TNO OOO w 
SSSSRERAAKRARR Sasa DHSDODFHOOCASS ARP SOOOSOOOS OS ee eee eee NIN 
SF FFG SS SS SSF ET EFT FOHNHAHAHAHAHANAAAAANOANAA 
LOL LECCE OCOEOOOQMOOQEOGCOCSL OCC ECO 


sere PRS 


VIFUN “OO OONOUNE Ww 


Sete Ge Ge Ge Ge Ge Ge ee Ge Ge tee 
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92 bytes P 


14-Sep-1984 CLIUTL.SRC JaCcMDPRS.692;1 


THE a EQL CLIS_NEGATED OR .STATUS EQL CLIS_LOCNEG 


Hy f Panam nent 


0-1 cursor y % 
Q-ICURSORE2,0, 

“1 CURSOR 4.0. 

“I CURSOR(B, 

ance OR = 33 “ICURSOR + 12; 


007¢ 00000 .ENTRY PARSE_GENERIC, Save R2,R3,R4,R5,R6 
06 ac DD 9008 PUSHL 
000000006 00 gi FB 0000 CALLS aT, CLISPRESENT 
56 0 00 9900¢ MOVL RO, STAT 
ge 56 £9 0000F BLBC ATUs 
00420000 8F BO 00012 Rov #32 Bret (Q_ICURSOR)+ 
88 DD 90018 1$ PUSHL Q OOALUE sDEse 
04 AC 0D 0001D PUSHL  Q~DES 
000000006 00 $6 FB 900 9 CALLS 2, ISGET_VALUE 
88 80 90 A Vw (Q VALUE_DESC), (Q_ICURSOR)+ 
8B 46 er 0020 MOVZBW #70 (Q TCURSOR)+ ~ 
88 A DO 00031 OVL DéURSOR, (Q_ICURSOR)+ 
BB D4 00034 CLRL ta” ICURSOR) + 
06 B8 68 28 00036 MOVC3 (a ~WALUE ABESC) @4(Q_VALUE_DESC), 
SA 53 DO 00038 MOVL R3> Q_DCURSOR 
DB 11 O003E BRB 1$ 
000000006 8F § Dt 90049 2s: CPL STATUS, #CLIS_NEGATED 
000000006 8F 36 Di 09049 cMPL STATUS. #CLIS_LOCNEG 
8B 00430000 =F 06 00052 3$: MOVL #4390912, (Q_1CURSOR) + 
88 7C 0005 CLRO (Q_ICURSOR)+ 
04 00058 4$: RET 


Routine Base: CODE + 06F1 
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SIDE EFFECTS: 
NONE 


3 ; GLOBAL ROUTINE PARSE_JOB_LIMIT(PARSE_PARAMETERS_): PARSE_LINKAGE= 
5 'ee 

40 § ' 
41 ' FUNCTIONAL DESCRIPTION: 
ru} 8 ! This routine parses the /JOB_LIMIT qualifier, making an entry in 
rh 4 : the job controller parameter List. 
45 1 i INPUT PARAMETERS: 
‘ ; : Standard parser parameters. 
4 i IMPLICIT INPUTS: 
$3 5 : NONE 
24 i OUTPUT PARAMETERS: 
2g } NONE 
236 i IMPLICIT OUTPUTS: 
$2? NONE 
587 i ROUTINE VALUE: 
58 : NONE 
559 ' 
560 } 

i 

ie 


Foo 
wr 


ws 


BEGIN 
PARSE _EXTERNAL_REGISTERS; ! Declare external registers 


IF CLISGET_VALUE(.Q_DESC, .Q_VALUE_DESC) 


PITS AANAMNAAAAD Re Be eR Pe ues n a sda ORORORORORORG 


a a a a kk a ak a at a a tt et st = a bs a a ts a as ss 1 4 
a a ee a ee ee ee ee ee a ee ee el ee el el ce ce ee el el el el el el el el el el el el el cl ll cel el el cl el eld el 
WN —OVOONAUNE WN O OOVNOUE WO 0 
AIAN BB BB BB EE EV AMAPIII|I INIA at rt nt tt hk tk td td ot ot 
— 


Be Se Se Se Se Se Se Se Se Se Se Se Ge Be Ge Se Se Se Se Se Se Ge Se Ge Fe Ge Ge Ge Ge Ge Ge Se Se Se Ge Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Ss Ge Se Ge Geese ee 


5 
3 
369 
568 
5 
tem 
38 BEGIN 
57% IF NOT LIBSCVT DTBC 
575 -Q_VALUE_DESCCDSCSW_LENGTH], .Q_VALUE_DESCCDSCSA_POINTER), 
76 -Q"DCURSOR) 
578 664 TRUE 
579 665 ELSE 
580 666 .Q_DCURSOR[0,0,32,0) - 1 GTRU 255 - 1 1 1 <= N <= 255 
581 bb END 
282 668 THEN 
5 66 SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 
ans 
586 678 Q_ICURSOR g. 16,0] = 4; 
587 67 Q-ICURSORE2.0.16,.0) = SJC$_JOB_LIMIT; 
388 67% Q-ICURSOR[. 3 0) = .0_DCURSOR; 
89 675 Q-ICuRSORES, = 6; 
590 676 O"ICURSOR =".G_ICURSOR + 12; 
591 67 Q"DCURSOR = .Q~DCURSOR + 4; 
236 678 END; 
59 67 END; 


ne 


m 4 
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vit ° 19-808-1382 90:88: $0 Ot TuTL sRedJBeCMOPRS 6821 ar yas 
0000 .ENTRY PARSE_JOB_LIMIT, Save nothin : 1623 
58 OD o002 PUSHL Q_VALOE_DESC . 3 1888 
04 AC DD 00004 PUSHL Q~DESC : 
000000006 90 FB 00007 CALLS #2, CLISGET_VALUE ; 
E 000¢ BLBC : 
A DD 0001 PUSHL @_OCURSOR + 1662 
046 «OA po : 13 PUSHL 4TQ VALUE_DESC) 3: 1661 
7E 68 3¢ 18 MOVZWL (Q VALUE DESC), -(SP) : 
000000006 00 9 FB 0001 CALLS #3, LIBSCVT_DTB : 
D 0 € 99 BLBC —_ «RO, : 
50 6A 01 ¢3 00 SUBL3. #1. (Q_DCURSOR), RO + 1666 
QOOOOOFE BF 50 Di 000 CMPL =soRO, «#254 : 
10 18 000 BLEQU 2$ ; 
04 AC oD 00 1$ PUSHL Q_DESC + 1669 
58 DD 00 PUSHL Q-VALUE_DESC : 
02 DD 00035 PUSHL #2 : 
59 0D 00037 PUSHL @Q MESSAGE ; 
000000006 00 04 FB 00039 CALLS a L1B$STOP : 
8B 004E0004 8F D0 00040 2$ MOVL #5111812, (Q@_ICURSOR)+ > 167 
88 BA DE 00047 MOVAL  (Q_DCURSOR)+> (Q_ICURSOR)+ : 167 
8B D4 O004A CLRL  (Q7ICURSOR)+ + 167 
04 0004C 38: RET : 167 


; Routine Size: 77 bytes, Routine Base: CODE + 074D 
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14-Sep-1984 CLIUTL. 
GLOBAL ROUTINE PARSE_LOG_FILE(PARSE_PARAMETERS_): PARSE_LINKAGE_VALUE= 


-32 
JBC 


—o 


44 


] 
FUNCTIONAL DESCRIPTION: 
This routine parses the /LOG_FILE qualifier, making an entry 


win 


in the job controller parameter List. 


INPUT PARAMETERS: 
Standard parser parameters. 


IMPLICIT INPUTS: 
NONE 


SSesssss3 
uw 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


True if /NOLOG specified. 
SIDE EFFECTS: 
NONE 


BEGIN 
PARSE EXTERNAL _REGISTERS; ! Declare external registers 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
LOCAL 
STATUS; 


STATUS = CLISPRESENT(.Q_DESC); 
IF_ .STATUS 
THEN 


AWWA AINSI RIPIDIPINIPININID 2 2 OO OO 


BEGIN 
Ft LST VANE C0 _2ESC. -Q_VALUE _DESC); 
IF STATUS EQL CLIS_NEGATED OR .STATUS EQL CLI$_LOCNEG 


NON 2 tt I | MQOOOOOOOOCOOOOOOOOOOVOO 


Se Se Se Se Be Se Se Se Se Se Ge Se Se Se Ge Ge Se Se Se Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Se Se Se Ge Se Se Se he Ge Sse Ge Se Ge Ge Ge Ge Se Se Se eses 

ee ee ee ee ce ee ee ce ec ce ce ee ee ee ce ee ce ce ee ee ed ed ed ed dd 
PAAAAAAAA AAA AAA AAA AAA AAAAAAAAAOAAAASAOAS 

me ka a an ai a a a at at et ss 4 2 8 a ts ts a 4 I 

NNN NS SSS SSNS SINS SISTA A AAA AAA OOOO OOOO 

=O ODNOAUN EWN 9 ODNA UE WIN $0 OO NAUE WN OS OONA UE AR$ O OONAUE 


36 

37 2 BEGIN 

38 : Q_ICURSOR Q. .16,0) = 0; 

Q7ICURSOR(2.0.16.0) = SJCS_NO_LOG_SPECIFICATION; 

640 Q_ICURSOREG, 3 i s 8: 
641 Q7 | CURSORL8, = 0; 
64¢ Q"ICURSOR = ._ICURSOR + 12; 
64 RETURN TRUE; 
644 END; 
645 
646 


5 

JBCCMDPRS Job Controller Command Parsing Utilities 16-Sep- 8 AX-11 Bliss-32 v4.0 Page 
04-000 ° eree= 188 P8ibaise | ert Ose i sbechoeRs oS2:1 . 
0004 00 ENTRY PARSE _LOG_FILE, Save R2 ; 

04 Ac OD PUSHL Q DEST : 

000000006 99 e. CALLS #1, CLISPRESENT : 

D C MOVL STATUS : 

E9 OOOOF BLBC = STATUS, 1$ : 

DD 00012 PUSHL Q_VALUE_DESC ; 

04 AC DD 00014 PUSHL ; 

000000006 90 FB 00017 CALLS CLISGET_VALUE : 

000000006 8F D| o038 1$ CPL Sec ou! acLIS _NEGATED F 

000000006 8F 2 bi 000 CMPL TATUS, #CLIS_LOCNEG ; 

9b if 99 BNEQ $ : 

8B 00630000 8F p 030 28 MOVL 46488064, (Q_ICURSOR)+ : 

8B 7C 0003 CLRG  (Q_ICURSOR)+ : 

50 01 D0 00039 MOVL #17 RO ; 

04 9005¢ RET : 

50 D4 00030 3$ CLRL = RO : 

04 0003F RET : 


3; Routine Size: 64 bytes, Routine Base: CODE + 079A 
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v04-000 14-Sep-1984 12:08:34 CLIUTL.SRCJJBCCMDPRS .B352;1 (26) \ 
; 1 i ¢ : GLOBAL ROUTINE PARSE _LOWER_UPPER(PARSE_PARAMETERS_): PARSE_LINKAGE= i 
: 1650 1734 1 !4¢ : 
3 1651 1735 1! 3 
; 1026 1736 1 =! FUNCTIONAL DESCRIPTION: 3 
3; 165 + ae This routine parses a qualifier of the form: : 
: 1654 1738 1! arr pond ; 
3; 1655 1739 1: /QUAL=( aver age"? H 
> 1656 1740 1! /QUAL=(Lower,’”' : 
3 ioet 108) : making an entry in the job controller parameter List. : 
3; 1659 1308 1 ! INPUT PARAMETERS: é 
3; 1660 1744 1! Standard parser parameters. : 
> 1661 1745 1! 3 
4 1008 1746 1°! IMPLICIT INPUTS: PY 
: 166 1747 1! NONE H 
3 1664 1748 1! F 
: 1665 1749 1 ! OUTPUT PARAMETERS: : 
3: 1666 1750 1! NONE 3 
3: 1667 1751 #15! 3 
: 1668 1736 1 ! IMPLICIT OUTPUTS: 3 
3: 1669 1753 1! NONE j 
3; 1670 1754 1! 3 
3; 1671 1755 1. ! ROUTINE VALUE: : 
3 1676 1756 1! NONE s 
3: 167 1757 1! 3 
3 1674 1758 1 ! SIDE EFFECTS: : 
3: 1675 1759 1! NONE 3 
: 1676 1760 1! | é 
: 1677 1761 1 f-= | ; 
3; 1678 1006 1 3 
3 1679 176 BEGIN : 
; 1680 1764 PARSE_EXTERNAL_REGISTERS; ! Declare external registers ; 
; 1681 1765 LOCAL 3 
3 1o8¢ 1766 STATUS, 3 
3; 168 1767 LOWER_LIMIT, | $ 
> 1684 1768 UPPER_LIMIT; : 
>; 1685 1769 3 
> 1686 1770 : 
: 1687 1771 IF CLISPRESENT(.Q_DESC) ; 
3: 1688 1er6 THEN ; 
3: 1689 177 BEGIN : 
: 1690 1774 OWER_LIMIT = 0; 3 
3; 1691 1775 UPPER_LIMIT = 0; 3 
5 1936 17e8 i 
3 169 177 2 : 
3 1694 1778 ' Get the first value. : 
3: 1695 1779 ! 3 
3 1696 1780 STATUS = CLISGET_VALUE(.Q DESC, .Q_VALUE_DESC); 3 
3 169 1781 IF .Q_VALUE_DESCTDSC$W_LERGTH) NEQ™O 3 
3: 1698 178 THEN 
3; 1699 17 4 BEGIN 
: 1700 1784 4 IF 
+ 1983 17Bo PF ONOT LIBSCVT_DTBC 
: 1708 1789 .Q_ VALUE DESCEDSCSW_LENGTH, -Q_VALUE_DESCCDSCSA_POINTER], 
3: 1704 1788 UPPER_LIMIT) 
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04-000 ° ate AR Ba Pi thet Rete Pee 9° 28) 
; 1762 1846 
: 176 184 IF .UPPER_LIMIT NEQ 0 
: 1764 1 48 THEN 
: 1765 1849 4% BEGIN 
; 1766 1850 4 Q_ICURSOR g. .16,0) = 4; 
> 176 1851 4 Q-ICURSOR(E2,0,16.0) = .0_P3; 
: 1768 1 3 4 Q"ICURSOR(S. 3 70] = .Q-DCURSOR; 
> 1769 1853 4 Q-ICURSORE8,0 = 6; 
> 1770 1854 4 Q-ICURSOR = .4 [CURSOR + 12; 
> 1771 1855 4 .0 DCURSOR = .OPPER LIMIT: 
: 127 1856 4 Q BCURSOR = .Q_DCURSOR + 4; 
: 177 1857 4 ERD 
: 1774 1856 3 ELSE 
: 1775 1859 4 BEGIN 
6 1776 1860 4 Q_ICURSOR 9.8. 16.0 = 0; | 
> 1777 1861 4 Q-ICURSOR(2,0,16,0] = .Q_P4; 
: 1778 186¢ 4 Q-ICURSOR 440.3 ,0] = 0; 
: 1779 1863 4 Q-1CURSOR[8,0,32,0) = 0; 
: 1780 1864 4 Q-ICURSOR = .@_ICURSOR + 12; 
> 1781 1865 END; 
; 178¢ 1866 
: 178 1867 
: HA H+: Try to get another value, to ensure there are not three. 
; 1786 1870 ; IF CLISGET_VALUE(.Q_DESC, .Q@_VALUE_DESC) | 
: 1788 1872 SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 
> 1789 1873 2 ND; 
: 1790 1874 1 END; 
| 
0OFC 00000 -ENTRY PARSE_LOWER_UPPER, Save R2,R3,R4,R5,R6,R7  ; 1732 
57 000000006 00 9€ 00002 MOVAB LIBSCUT_DTB; R7 F 
56 000000006 00 9€E 00009 MOVAB LIBSSTOP, R : 
55 000000006 00 9E 00010 MOV CLISGET_VALUE, R5 : 
5E 04 C2 00017 SUBL2 #4, SP : 
52 04 AC DO OOO1A MOVL 0 DESC, R2 : 1771 
52 0D tt PUSHL R2 3 
000000006 00 01 FB 0002 CALLS #1, CLISPRESENT : 
01 50 €8 00027 BLES ~=s-«aRO. *‘18 ; | 
04 90 A RET : 
53 4 B 1$: CLRL  LOWER_LIMIT : 1774. 
6E D4 00020 CLRL UPPERTLIMIT : 1775. 
0104 8F BB 0002F PUSHR #*M<R2.RB> : 1780 
65 02 FB 00033 CALLS 2, CLISGET_VALUE F | 
54 dO 000 MOVL RO, STAT ; | 
AB 2 0039 TSTW  (Q VALUE_DESC) > 1781 
1D 4 EQL 3$ 3 
SE DD 00 PUSHL 5$P : 1786. 
06 A pp 99 F SHL  4(Q VALUE_DESC) > 1787. 
7 C 0004 MOVZUL (9 VALUE BESC), -(SP) : 
6? FS 4 CALLS #3; LIBSCVT_0TB : 
6E D5 00048 TSTL UPPER_LIMIT : 1792 
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¥04-000 ® 1ereee= 1 3be Poi 8R te eT othe aechoeas oS2:1 9° 28) 
12 00040 BNEQ 3$ : 
DD Baer 23: PUSHL R2 : 1795 
DD 00051 PUSHL Q_VALUE_DESC : 
9 DD 0005 PUSHL : 
DD 000 PUSHL Q MESSAGE : 
66 4 FB 000 CALLS #%, LIBSSTOP : 
000000006 8F 4 01 O005A 38: CMPL status, #CLIS_COMMA + 1801 
20 if} 006} BNE § : 
53 6E 00 0006 MOVL § UPPER_LIMIT, LOWER_LIMIT + 1804. 
6E D4 9066 CLRL -UPPER“LIMIT + 1805 
0104 8F BB 0006 PUSHR #*M<R2,R8> 3 1806) 
65 08 FB 0006C CALLS #2, CLISGET_VALUE : 
68 8B O06F TSTW (0. VALUE_DESC) + 1807 
1D 13 00071 BEQL : 
5E 0D 00073 PUSHL SP + 1812) 
04 As BD 09075 PUSHL 4(Q VALUE DESC) + 181 
7E 68 C 00078 MOVZWL (Q VALUE DESC), -(SP) : 
67 0 i: 00078 CALLS #3, LIBSCVT_DTB : 
04 50 €9 OO07E BLBC =—_-«aRO,. G ; 
6E 05 00081 TSTL UPPER_LIMIT : 1818 
Q 12 00083 BNEG 5$ : 
DD 00085 4$: PUSHL R2 + 1821 
58 DD 00087 PUSHL Q_VALUE_DESC : 
02 oD 00089 PUSHL : 
59 DD 00088 PUSHL Q MESSAGE : 
66 04 FB 0008D CALLS #%, LIBSSTOP : | 
53 05 00090 S$: TSTL LOWER_LIMIT : 1826) 
14 13 00092 BEQL 6 : 
04 B80 00094 MOVW #4, (Q_ICURSOR) : 1829, 
AC BO 00097 MOVW  Q_P1, 2(Q_ICURSOR) : 1830) 
5A D0 0009C MOVL  Q-DCURSORT 4(Q_ICURSOR) > 1831) 
AB D4 000A0 CLRL  8TQ_ICURSOR) > 1832 | 
53 DO 000A3 MOVL OWER_LIMIT, (Q_DCURSOR)+ > 1834 | 
OA 11 0006 BRB : 1826 
6B B4 S008 6$ CLRW = (Q {CURSOR} : 1839 
AC 80 OOAA Vw 62, 2(Q ICURSOR) : 1840 | 
AB 7C OOOAE CLRQ.  4TQ_{CURSOR) > 1841 | 
OC CO 00082 7$: ADDL2 #12, Q_ICURSOR : 1833 | 
6— D5 0008 TSTL UPPER_CIMIT : 1847, 
14 13 00087 BEQL ; 
04 BO 00089 MOVW #4, (Q_ICURSOR) : 1850 | 
AC B80 000BC MOVW  Q_P3, 2(0_ICURSOR) > 1851 | 
SA 00 000C1 MOVL  Q7DCURSORT 4(Q_ICURSOR) : 1852 | 
AB D4 00¢3 CLRL  8TQ_ICURSOR) > 1853 | 
6E DO 000C8 MOVL PPER_LIMIT, (Q_DCURSOR)+ > 1855 | 
OA 11 000CB BRB : 1847. 
6B B84 000CD 8$: CLRW  (Q_I CURSOR) ; 1860 | 
AC 80 OOCF MOVW @ P4, 2(0 ICURSOR) > 1861 | 
AB 7C 00004 CLRQ  4TQ_fcURSOR) > 1862 | 
g¢ CO 9007 98: ADDL2 #127 Q_ICURSOR > 1854 | 
F BB QOODA PUSHR #*M<R2,R8> : 1870 
FB O0DE CALLS #2, CL ISGET_VALUE : 
E 0 E LBC =—s«aRO. «108 F | 
D OS0E4 PUSHL : 1872. 
DD E6 PUSHL Q VALUE_DESC : 
g DD OO0DE PUSHL @# : 
DD OOOEA PUSHL Q_MESSAGE ; 
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66 046 FB poveEt CALLS #4, LIBSSTOP : 

04 OOOEF 10$: RET 3 1874, 
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DD 8 2 
DD 
ie 
6 01 
' O0t4 
Hg 
DOD 0018 
DD 0001D 
fe +3 
s Bais 
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8 00032 
DO 00037 
04 0003A 
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Q_VALUE_DESC 
Q~DESC 

I1SGET_VALUE 
(Q_VALUE_DESC), #39 
Q_DESC 
: VALUE _DESC 
MESSAGE 
+ biBSSTOR 
VAL cae tt (Q_1 CURSOR) * 
a ptunsD OR. (0_ TCUPRSOR) + 
“V ALUE DESC), 
“DCURSOR) 
<f UDCURSOR 
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3 } ¢ 3 § } GLOBAL ROUTINE PARSE _NAME_AND_LOG_FILE(NAME_DESC,LOG_FILE_DESC,DNA_DESC ,MESSAGE): PARSE_LINKAGE= 

3 1 § 19 : 1 fee 

3 1 19 1! 

3 1 : 1930 1 ! FUNCTIONAL DESCRIPTION: 

3 3 1931 1! This routine finishes processing of the /NAME and /LOG_FILE qualifiers, 

3 1851 13 ¢ : making entries in the POD controller parameter List. 

sy 26 19 1 ! INPUT PARAMETERS: 

: 185 1935 1! NAME _DESC = Descriptor for the /NAME qual i tier. 

3 1854 19 ie: LOG_FILE_DESC = Descriptor for the /LOG_FILE qualifier. 

3 1922 19 1! NA - Pesce iptor for the default filename string. 

3: 1 28 19 3 1! MESSAGE - "Invalid log file specification’ message. 
3 ee 19 1! 
; 1858 1940 1 ! JMPLICIT INPUTS: 
; 1859 1941 1! NONE 
3; 1860 13e6 1! 

3; 1861 194 1 ! OUTPUT PARAMETERS: 

$ 1866 1944 1! NONE 

3; 186 1945 1! 

3; 1864 1268 1 ! IMPLICIT OUTPUTS: 
3; 1865 194 1! NONE 
3 1308 1948 1! 
: 186 1949 1 ! ROUTINE VALUE: 
3; 1868 1950 1! NONE 

3; 1869 1951 1! 

; 1870 1928 1 ! SIDE EFFECTS: 

3; 1871 195 3 NONE | 
3 1876 1954 1! 
3: 187 1955 1 !<= 
3 1874 1328 1 
; 1875 1957 2 BEGIN | 
3: 1876 1958 MAP 
3: 1877 1959 NAME _DESC: REF BLOCKC,BYTE), 
; 1878 1960 LOG_FILE_DESC: REF BLOCK BYTES | 
: Hy +4 1303 DNA_DESC: REF BLOCKL,BYTEJ;: 
: Ht 1968 PARSE _EXTERNAL_REGISTERS; ! Declare external registers 
3 1888 1965 LOCAL 
: 1884 1208 3 SFAB_DECL, ' FAB for SPARSE 
3 1885 196 NAM: SNAM DECL i NAM for SPARSE | 
3; 1886 1968 ESA: VECTORCNAMSC_MAXRSS BYTE), ! Expanded string 

; 1887 196 STATUS; 

: 1 1970 

; 1889 1971 

3 H+ 1978 : Initialize RMS structures required to do a SPARSE. 

: 1898 P1974 2 $FAB_INIT(FAB=FAB 

3; 189 P 1975 NA=.DNA_DESCLDSCSA_POINTER), 

3 1894 P Hb 44 DNS=.DNA_DESCCDSC$W_LENGTH], 

3: 1895 197 2 : 

: 189% P 1978 SNAM_INIT(NAM=NAM, 

: 24 P 197 ESA=E 

; 1898 1980 ESS=NAMSC pases 

3 1899 1981 NAMCNAM$V_NOCONCEAL) = TRUE; 

3: 1900 1982 
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-Sep-1 
stablish the primary file name. If the /LOG qualifier was used 
rom that; otheruiea. if the /NAME ualit . t con 
happen. 

F LOGFILE _DESCCDSCSU_LENGTH] NEQ 0 


ete me ee ne 
x 
m 


BEGIN 
FABLFABSB_FNS) = -LOG_FILE_DESCEDSC$W_LENGTH]; 
FAB FABSL-FNA] = .LOG_FILE-DESCLDSCS$A_POINTERI; 


33 +4 IF .NAME_DESCCDSCSW_LENGTH] NEQ 0 


BEGIN 
FABLFABSB_FNS = -NAME_DESCEDSCSW_LENGTH]; 
FABLFABSLFNA] = .NAME-DESCLDSCSA_POIN 
ELSE 

RETURN; 


it comes 
ier was used, it comes from that. 
If neither was used, do nothing, and let defaulting to the command file name 


! Execute a SPARSE. Ensure that the device is a disk and that the filespec 


: does not contain wildcards. 
if NOT SPARSE (FAB=F AB) 
SIGNAL_STOP(.MESSAGE, 0, .FABCFABSL_STS], .FABLFABSL_STV)); 
IF NOT .BB OCKEFABEFABSL DEV], DEV$V_RNDJ 
OR -BBLOCKCFABLFABSL_DEV], DEVSV_FORJ 
SIGNAL_STOP(.MESSAGE, 0, RMS$_DEV); 
IF_ .NAMCNAMSV_WILDCARD) 


THEN 
SIGNAL_STOP(.MESSAGE, 0, SHRS_NOWILD OR STSS$K_ERROR); 


NAMCNAMSB_ ESL); 
LOG SPECIFICATION; 
URSOR; 


-NARENAMSB._E 
“NAMLNAMSL ~E 
yp On PCURSORS: 
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0050 
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6A 


E4 


000000006 


F3 


FFSC 


scoops 


5008 


Aas D 
600 F 
01 

6 

1 

08 Ac 
60 
08 
04 AC 
60 
66 
60 
04 A0d 
BO AD 

01 
50 
B&8 AD 
7E 
10 «AC 
04 
04 
F3 AD 
000184¢4 : 
10 A 
5 AD 
113A : 
10 A 
08 
FF5 CD 
6 


FFSB ; 
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-Sep-19 9: Ax-11 Oi tag. a v4.0 
1Soseo-19Rs 09:08:18 yaKett BL ing=32 v4.0 
.EXTRN SYSSPARSE 
007¢ 00000 ENTRY 
9 900 MOV LigsstoP. R Rg 
3 MOV 432(SP) 
990 MOVCS #0. (SP). 30. #80, SRMS_PTR 
é 001 MOVW #20483, SRMS PTR 
ns RE, 
a 
: 5 MOV NAM, SRMS_ 
DO 00028 MOVL DNA. DESC 
p O02F MOVL  4(RO), $RMS_PTR+48 
00 MOVB tho). “SRMs_PTR+53 
2c 90 : MOVCS #0, (SP), #O, #96, SRMS_PTR 
80 0042 MOVW #24578. RNs PTR 
E 0004 MNEGB #1, SRMS_PTR710 
9 BORee MOV ESA. SRS. PTR+12 
88 0005 BISB2 #16. NAM+ 
DO 00058 MOVL LOG _FILE_DESC, RO 
B5 0005¢ TSTW (ROY 
12 0005€ BNEQ ‘1 
DO 00060 MOVL § NAME_DESC, RO 
BS 00064 TSTw  (RO)™ 
1 90066 BEQL 68 
90 00068 1$: MOVE (RO), FAB+S2 
DO 0006C MOVL 4 (ROS, FAB+44 
9F 00071 PUSHAB PAB 
re 90074 CALLS #1, SYSSPARSE 
3 0078 LBS. =—ss«RO 
D 0007 v0 FAB+8, -(SP) 
D4 0008 CLRL = = (SP) 
DD 00084 SHL MESSAGE 
Fe 0087 CALLS #4, LIBSSTOP 
E1 OO008A 2$: ¢ #4; FAB+67, 3$ 
E9 0008F LBC FAB +6 , 4$ 
DD 90093 3$: PUSHL #99524 
D4 00099 CLRL. = (SP) 
DD 00098 PUSHL ESSA 
FB 009 CALLS #3, LIBSSTOP 
5 9 Al 4$ BLBC NAM+53, 5$ 
C 0005 MOVZWL #4394, =(SP) 
D4 OOOAA CLRL = (SP) 
DD 9 AC PUSHL ESSA 
FB OOOAF CALLS iy P 
98 00082 5S: MOVZ72BW NAM+11, (Q ICURSOR)+ 
98 0B MOVZBW 508 (&_ICORSOR) + 
dO 00088 MOVL  Q_DCURSOR, (Q_ICURSOR)+ 
4 0008 CLRL (0 ICURSO fs 
A 000C MOVZBL NAR 
8 ¢ MOVE RO. 3 andne Re (Q_DCURSOR) 
BO CB MOVL _DCURSOR 
OOCE 6$: RET 
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3; Routine Size: 207 bytes, Routine Base: CODE + 0905 


Nn 5 
JBCCMDPRS Job Controller Command Parsing Utilities 16-Sep-1984 00:09:18 AX-11 Bliss-32 V4.0-74 Page 66 
¥O55000 ° ease 188s Foi ea ee Hee OgRe sae chbPRs o$251 9° 38) 
H 19 7 3 } GLOBAL ROUTINE PARSE _NONZERO_NUMBER(PARSE_PARAMETERS_): PARSE_LINKAGE= 
; 1989 9 1 !¢4 
3; 1960 1! 
3; 1961 beg 1 ! FUNCTIONAL DESCRIPTION: 
; 1308 ee 1! This routine parses a qualifier with an orererery nonzero numeric value, 
3 1207 te ; : making an entry in the job controller parameter List. 
3; 1965 1 ! INPUT PARAMETERS: 
: 1308 047 1! Standard parser parameters. 
3; 196 048 1! 
3 1398 049 1! IMPLICIT INPUTS: 
3. 196 050 1! NONE 
3; 1970 051 1! 
3; 1971 $26 1 ! OUTPUT PARAMETERS: 
3 1376 053 1! NONE 
3; 197 054 1! 
3; 1974 055 1! IMPLICIT OUTPUTS: 
3; 1975 B28 1! NONE 
; Hb 44 | 05 1! 
: 197 058 1 ! ROUTINE VALUE: 
3; 1978 059 1! NONE 
3; 1979 060 1! 
; 1980 061 1 ! SIDE EFFECTS: 
: 1981 062 1! NONE 
3 Ieee 063 1! 
3; 198 064 1 !<- 
3: 1984 065 1 
; 1985 + § | .2 BEGIN : 
3 1986 06 . PARSE_EXTERNAL_REGISTERS; ! Declare external registers 
3: 1987 spe8 
3; 1988 069 
: 1989 sont IF CLISGET_VALUE(.Q_DESC, .Q_VALUE_DESC) 
3; 1990 071 THEN 
3; 1991 O58 BEGIN 
$ a4 07 F 
3 199 074 4 BEGIN 
3: 1994 075 4 If NOT LIBSCVT 44 A 
3; 1995 oe 4 -Q_VALUE DESCCDSCS$W_LENGTH], .Q_VALUE_DESCCDSCS$A_POINTER), 
3 i238 077 4 -Q-DCURSOR) 
3; 199 078 4 
3; 1998 079 4 TRUE 
3: 1999 080 4 ELSE 
3; 2000 081 4 -Q_DCURSOR(0,0,32,0] EQ. 0 
3; 2001 0 ; 4 
3 008 0 THEN 
: oor 3 r SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 2 
3; 2005 0 
3 B08 0 Q_ICURSOR(0,0,16.0] = 4; 
> 200 0. 8 Q~ICURSORE2.0.16.0) = .Q_P1; 
3; 2008 0 Q_ICURSORLS, 3 0] = ,Q_DCURSOR; 
> 2009 90 O71 CURSORLS, = 6; 
3 010 91 Q"ICURSOR =°.4_ICURSOR + 12; 
3; 201 3 Q DCURSOR = .Q_DCURSOR + 4; 
3 a 09 END; 
3; 201 094 END; 
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¥O5+000 ° eats a a CT th Rae oe ek PP 


On 


0000 000 ENTRY PARSE_NONZERO_NUMBER, Save nothin ; 2038 
« 2 Re | te ERENT” a a 
000000006 09 ; FB 00007 CALLS #2, CLISGET_VALUE : 
2 ES O000E BLBC : 
A DD 00011 PUSHL CURSOR + 2077 
7 wi és vanieats RUeToL  tOTOMCUE BEETS. =<sPD : 5076 
000000006 00 6 FS 0019 CALLS #3, LIBSCVT_DTB : 
4 0 €9 000 BLBC —_-«aRO,.:*‘T$ : 
6A D5 000 TSTL  (Q DCURSOR) + 2081 
10 12 900 BNEG  2$ : 
04 ac DD 00027 1$: PUSHL  @_DESC + 2084 
58 DD 0002A PUSHL  Q~VALUE_DESC F 
9¢ DD 0002C PUSHL #2 3 
59 DD 0002E PUSHL MESSAGE : 
000000006 00 04 FB 00030 CALLS #%, LIBS$STOP : 
8B 04 BO 00037 2$ MOVW #4, (Q wore : 2087 
8B 08 AC BO O003A MOVW Q P1, TQ ICURSOR)+ : 2088 
8B 8A DE O003E MOVAL (0 btu RSORSon (Q_I CURSOR) + : 2089 
8B D4 00041 CLRL.  (Q7ICURSOR)+ : 2090 
04 00043 3$: ET > 2094 


; Routine Size: 68 bytes, Routine Base: CODE + 09D4 
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JBCCMDPRS 

v04-000 

5 FF 993 
3 O17 $99 
: 2018 098 
: 2019 099 
; O50 100 
: $05) 103 
: $058 198 
3; 2026 104 
: oS? 199 
: 5059 199 
: $055 199 
; $080 110 
+ ett 
; $33 118 
3; 2034 114 
3; 2035 115 
3; 2036 116 
3; 2037 11 
3; 2038 118 
3; 2039 119 
3; 2040 120 
3 sees ’ 1 
; $008 $158 
> 2044 2124 
: Soe $156 
3 2047 2127 
3; 2048 2128 
3 2049 2129 
; 2050 2130 
3; 2051 131 
3 O26 136 
3; 205 13 
: bee 134 
: $086 136 
; 44 137 
; $030 i $ 
3; 2060 140 
3; 2061 141 
3 peg | 
3: 206 si¢ 
3; 2064 144 


Job Controller Command Parsing Utilities 


6 
1b-se -1984 00:09:18 
1e-8ep=1984 3:08:36 
GLOBAL ROUTINE PARSE NUMBER (PARSE _PARAMETERS_): PARSE_LINKAGE= 
'e¢ 
' 
FUNCTIONAL DESCRIPTION: 

This routine parses a qualifier with an arbitrary numeric value, 

making an entry in the job controller parameter List. 


INPUT PARAMETERS: 
Standard parser parameters. 


IMPLICIT INPUTS: 
NONE 


l 
CLIUTL.SRC 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 

SIDE EFFECTS: 
NONE 


BEGIN 
PARSE _EXTERNAL_REGISTERS; ! Declare external registers 


fF ge PORES, VALUE C.B JERE, -Q_VALUE_DESC) 


BEGIN 

IF NOT LIBSCVT_DTB( 
-Q_VALUE_DESCCDSC$W_LENGTH], .Q_VALUE_DESCCDSCSA_POINTER), 
-Q~DCURSOR) 


SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 


oouwunn 


=I IAAIAININIAIAIAI AI AAI PID a at at at tt tt tS SS SS 
—4 
nw 


0000 00000 


ENTRY PARSE NUMBER, Save nothing 
58 DD 00002 


PUSHL Q_VALOE_DESC 


Ax-11 8B is9s3¢ v4.0- 
JBCCMDPRS 


74 
-B32;1 
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: 3137 


dD 6 
r r nd Parsin ilitie 16-Sep-1984 00:09: AX-11 Bliss-32 V4.0-74 Page 69 
ee er r 13-808-1 382 90:08: $0 CLIUTL.S tes sae chbPeS 6 2:1 . (38) 
06 AC dD PUSHL Q_DESC ; 
000000006 90 Fe 7 CALLS H+ ¥ ISGET_VALUE $ 
A DD 0001 PUSHL @_SCURSOR : 132 
06 =A bo 13 PUSHL 4TQ VALUE_DESC) + 2131 
43 C 00 1 MOVZWL (9_VALUE BeSc), =(SP) ; 
000000006 06 ; Fe 4 CALLS a3; Li tvT_bTé : | 
04 AC DD 000 g PUSHL  Q_DESC > 2134 
58 DD 000 6 PUSHL Q-VALUE_DESC F 
Oe DD 99 PUSHL : 
DD OOO2A PUSHL MESSA GE : 
000000006 00 04 FB 000 g CALLS a STOP : | 
8B 04 BO 00033 1S: MOVW 4 tae TCURSOR)» : 137 
8B 08 AC B80 000 MOVW Q.P1, TQ ICURSOR) + 2138 | 
88 BA DE 0003A MOVAL (a. peursor)+, (2. ICURSOR)+ + 2139 
88 D4 00030 CLRL (Q- OCURSORD * t 2140 
04 0003F 2S: ET : 2144 


; Routine Size: 64 bytes, Routine Base: CODE + 0A18 
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075 


POPQNIPONIPONOPONPoNN 
on 


NUSSSENAnRUD—oSSVEARAV—S 


ee i 
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° 1ergee= 138s 99:83:48 Oe iaacce Page | 5i9 


1 0 "ae 
-Sep-1 CLIUTL.SR DPRS.B52;1 (31) 
GLOBAL ROUTINE PARSE _OBJECT_NAME (PARSE _PARAMETERS_): PARSE_LINKAGE= 
ats 
FUNCTIONAL DESCRIPTION: 
This routine parses an object name, making an entry in 
the job controller parameter List. 


INPUT PARAMETERS: 
Standard parser parameters. 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BEGIN 
PARSE _EXTERNAL_REGISTERS; ! Declare external registers 
FE ge TORE! MLE .0 DERE. -Q_VALUE_DESC) 
BEGIN 
IF 
BEGIN 
4 1 CALL_TPARSE(.Q_VALUE_DESC, SYMB_STATES, SYMB_KEYS) 
TRUE 
ELSE 
-Q_VALUE_DESCCDSCS$W_LENGTH] - 1 GTRU 31 - 1! 1 <= N <= 31 


THEN 
SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 


Q_ICURSOR g. 16,0] = .Q_VALUE_DESCCOSC$W_LENGTH; 
Q-ICURSORC2.0.16.0) = .Q7P1; 
Q-ICURSORE4, 3 70) = .Q-DCURSOR; 
Q"ICURSORLS, = 6; 
Q-ICURSOR = .@ ICURSOR + 12; 
Q"DCURSOR = CHSMOVE ( 
.Q_VALUE_DESCCDSC$W_LENGTH) 
-Q~ VALUE ~DESCLDSCSA~POINTER, 
: -Q~DCURSOR) ; 


F 
14"$ 4 


; 2123 2202 1 END; 


; Routine Size: 82 bytes, Routine Base: CODE + 0A58 


6 
JBCCMDPRS Job Controller Command Parsing Utilities 16-Sep-1984 9:18 AX-11 Bliss-32 v4.0 
04-000 ° Been Toke Poioasse eT Oske sabe choees 


RO 


@4(Q_VALUE_DESC), 


003C 44 
58 DD 98 PUSHL VALOE_DESC™ 
04 AC DD 000 PUSHL a=ESC 
000000006 00 9 FB 0007 CALLS + GLISGET_ VALUE 
40 O00E BLBC 
44444 CF OF Bate PUSHAB ey mB _ KEYS 
000Vv cf F 00015 PUSHAB SYMB_ STATES 
: DD 00019 PUSHL Q_VACUE_DESC 
F594 ~—sCF 03 FB 00018 CALLS #3, CALC_TPARSE 
OA 50 G? 00020 LBC RO, 
50 68 3C 00023 MOVZWL (Q’VALUE_DESC), 
50 07 00026 DECL R 
1E 50 D1 00028 CMPL RO, #30 
10 18 00028 BLEQU 2$ 
04 aC ODD 600¢0 1$: PUSHL Q_DESC 
58 DD 00030 PUSHL Q-VALUE_DESC 
02 DD 00032 PUSHL #2 
59 DD 00034 PUSHL Q MESSAGE 
000000006 00 04 FB 00036 CALLS 4#%, LIBS$STOP 
Es 68 BO 0003D 2$: MOVW (Q° VALUE DESC). 
85 08 AC B80 00040 MOVW Q.Pi, (a7) 
88 5A DO 00044 MOVL Q-DCURSOR a ieiesenye 
8B D4 00047 CLRL (G_ICURSOR)+ 
6A 046 «B8 68 28 00049 MOVC3 (a. “VALUE ag SC? 
SA 53 DO 0004E MOVL R3, Q_DCURSOR 
04 00051 3$: RET 


788251 


ENTRY ‘CN OBJECT_NAME, Save R2,R3,R4,R5 


Page 71 


(31) 
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JBCCMDPRS Job Controller Command Parsing Utilities 18-50 -1984 00:09:18 AX-11 Bliss-32 V4.0-74 Pa 72 
yes s000 ° 12-808 - 198 Bt CLIUTL.SRCJJBCCMDPRS .B32;1 9° 325 
: ' 5 3 GLOBAL ROUTINE PARSE_ON(PARSE_PARAMETERS_): PARSE_LINKAGE= 
: 21 5 5 1 tee 
: 21 8 ii 
: 21 9 1 ! FUNCTIONAL DESCRIPTION: 
3; 21 8 1! This routine parses the /ON qualifier, making an entry in the 
3 ; 1 % ; : job controller parameter List. 
: 21 5 11. 1! INPUT PARAMETERS: 
3 ; : \§ : Standard parser parameters. 
: 21 14 1°! IMPLICIT INPUTS: 
3 : F ; NONE 
> 2139 i$ 1 | OUTPUT PARAMETERS: 
ae BL See 
: 14g 0 1! IMPLICIT OUTPUTS: 
: 163 é 1 ; NONE 
> 2145 2 § 1! ROUTINE VALUE: 
> 214 9 NONE 
; 149 235 1 i 
: 2148 1 ! SIDE EFFECTS: 
: 2149 : 1 NONE 
3 2150 81 
Be BB yi 
; 138 231 BEGIN 
: 138 $36 PARSE_EXTERNAL_REGISTERS; ! Declare external registers 
: 215 
3 137 He if CLISGET_VALUE(.@_DESC, -Q_VALUE_DESC) 
: 2159 $3 BEGIN 
He BBE, 
; 16¢ 360 ADDR: REF VECTORC,BYTE), 
> 2164 348 BUILTIN 
> 2165 4 MATCHC; 
: $189 48 
> 2168 46 LEN = .Q VALUE DESCCDSC$u LENGTH); 
+ 2169 4 ADDR = .0 VALUE DESCCDSC$A_ POINTER); 
: 170 48 IF MATCHCTEREF (2), UPLIT BYTE (*::*5$, LEN, .ADDR: ... P) 
; 17 50 4 BEGIN 
: 217 51 4 LOCAL 
3 1% 3g 4 NODE_LEN; 
; 176 54 4 NODE_LEN = .P = .ADDR - 2; 
> 217 35 4 IF .RODE_LEN GTRU 6 
; 2178 § 4 THEN 
: 179 3 4 SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 
; 184 38 4 


K S 
Job Controller Command Parsing Utilities 16-Sep-19 


JBCCMDPRS 9:18 AX-11 Bliss-32 v4.0-7 
yOss000 14*5 $07 19be 99: 88 if CLIUTL. SRC TBCCHOPRS.-B 2:1 
: 21 60 4 Q_ICURSOR[0,0.16,.0) = 6: 
: 21 61 4 Q-ICURSORE2.0.16.0) = SJC$_SCSNODE_NAME; 
: 21 62 4 Q-ICURSORE4.0.32.0) = ,Q_DCURSOR; 
> 2185 63 4 Q"ICURSORLS, = 6; 
: 21 64 4 Q"ICURSOR ='.4 ICURSOR + 12 
3 1 65 4 Q"DCURSOR = CHSCOPY(. NODE Vein, .ADDR, ZC’ *, 6, .Q_DCURSOR); 
: 2189 85 4 
: 2190 68 4 LEN = .ADDR + .LEN = .P; 
: 2191 $ 4 ADDR = .P; 
; 136 0 END; 
> 219 71 
: 2194 if 
> 2195 7 IF .LEN NEQ 0 
; 196 7% THEN 
> 319 75 4 BEGIN 
; 198 , 4 IF .LEN GTRU 31 
; 200 28 4 SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 
; 202 B80 4 
: 220 81 4 Q_ICURSOR 9.0.16.0 = .LEN; 
3 2204 38¢ 4 Q-~ICURSORE2.0.16.0] = SJC$_DEVICE_NAME; 
> 2205 283 4 Q- I CURSOR 4.0.3 70] = .Q_DCURSOR; 
3 2206 284 4 Q7ICURSORLS, 03 = 6; 
: 2207 85 4 Q-ICURSOR = .@ ICURSOR + 12; 
: 2208 6 4 Q"DCURSOR = CHSMOVE ( 
: 2209 4 LEN 
: 2210 88 4 “ADDR, 
: 3211 89 4 -Q_DCURSOR) ; 
; 12 290 : ND; 
: 31 291 END; 
> 3214 2292 1 END; 
3A 3A OOAAA P.AAD: .ASCII \::\ 
00FC 00000 .ENTRY PARSE_ON, Save R2,R3,R4,R5,R6,R7 
SE 04 C2 0000 SUBL2 ° 
8 DD 0000 PUSHL PR Sl 
04 AC OD 90 PUSHL § 
000000006 7 : FB 0A CALLS » CLISGET_VALUE 
5 6 4 9014 Ba (a. VALUE DESC) 
56 04 =A p 0017 VL LUE_DESCS, LEAR 
66 57 DF OAF Q 0018 MATCHC 3s -p* RAD? LEN, (ADDR) 
4 dC 000 MOVPSL R4& 
6E 53 00 3 MOVL RS. (SP) 
3¢ 54 E1 00026 BBC R4, 2% 
53 6f C3 O002A SUBL ADDR. P, R3 
¢ 0 f SUBL Nope _LEN 
06 CMPL NODE_LENT #6 
10 1B 000 BLEGU 
04 AC DD 000 PUSHL Q_DESC 


Sete Se Se Se Se Se Se Se Ge Se Se Sete Se Be Se 


JBCCMDPRS Job Controller Command Parsing Utilities 16-Sep-1984 709: AX-11 Bliss-32 v4.0-74 Pa 74 
vitae ts ° aaa ra Oa CT thee ta Rect ek P 9° 33) 
DD 9 Q_VALUE_DESC : 
BD PUSHt Oo MESSAGE ; 
000000006 00 4 F F CALLS a tiessrop : 
008F0006 BF D 46 1$: MOVL #9371654, (Q_ICURSOR)+ : 
A D 4D MOVL  Q_DCURSOR, (G_ICURSOR)+ > 226 
b4 CLRL (0_ICURSOR)+ : 226 
6 20 66 ; C 0 MOVCS NODE_LEN, (ADDR), #32, #6, (@_DCURSOR) + 2265 
5A 3 DO 09 8 VL_ 3, Q_DCURSOR : | 
29 6 C 8 Arete LEN, ADDR, RO : 2268 
20 6e C 0 F SUBL3 P, RO, LEN : 
a 5 D 63 MOVL P. ADOR : 3269 
D 9066 28: TSTL LEN > 2273) 
7 13 000 BEQL «= 4 : | 
1F 7 D1 O006A CMPL LEN. #31 : 2276) 
10 18 0006D BLEGU : 
04 AC ODD O06F PUSHL Q_DESC : 2278 
58 DD 00072 PUSHL Q-VALUE_DESC : 
a DD 00074 PUSHL F 
59 DD 00076 PUSHL SAGE F 
000000006 00 04 FB 00078 CALLS #%, LIBS$STOP : 
88 57 BO 0007F 3S: MOVW LEN, (Q_ICURSOR)+ + 2281 
88 18 B80 0082 MOVW #27, (Q-ICURSOR)+ : 28¢ 
88 5A 00 0008 MOVL  Q_DCURSOR, (Q_ICURSOR)+ : 228 
D4 00088 CLRL (8 _ICURSOR)+ > 2284 
6A ee 57 28 OO008A MOVC3 LER, (ADDR), (Q_DCURSOR) > 2289 | 
SA 53 D0 O008E MOVL 3, Q_DCURSOR : 
04 00091 4$: RET : 2292. 


: Routine Size: 146 bytes, Routine Base: CODE + OAAC 


14-Sep-19 
GLOBAL ROUTINE PARSE _OWNER(PARSE_PARAMETERS_): PARSE_LINKAGE= 


ee 
i 


i FUNCTIONAL DESCRIPTION: 
: This routine parses the /OWNER qualifier, making an entry in 
the job controller parameter List. 


INPUT PARAMETERS: 
Standard parser parameters. 


IMPLICIT INPUTS: 
NONE 


oO 
w 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BEGIN 
PARSE EXTERNAL _REGISTERS; ! Declare external registers 


NOUS WN 9 ODNAMN EWN OO OONOU EWN "OOOO 


AAA N AANA AIA WIWIWIIIL 


IA WIPO POPENOPoNoTrorfofnoerngys 
SPVFEAREUS LS SOVEAR GN LS COVA AR WN OSR VET RUUD IEE 


IIA PNININ IIA a tt tk i i a dh dh 


48 IF CLISGET_VALUE(.Q_DESC, .Q_VALUE_DESC) 
49 THEN 
50 BEGIN 
51 CONVERTED 
33¢ IF NOT CALL. If anei(. Q_VALUE_DESC, OWNE_STATES, OWNE_KEYS) 
34 SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 
$ 
5 Q_ICURSOR[0.0.16,0) = 4; 
58 Q-ICURSORE2.0.16.0) = SJC$_OWNER_UIC; 
59 Q- CURSOR 4. +38. = .Q_DCURSOR? 
60 Q-ICURSORLS, =; 
61 Q-ICURSOR = 30 ae 
6¢ Q~DCURSORLO,0,32,0) = =” CONVERTED UIC; 
6 40 Q~DCURSOR = ._D + 4; 
64 1 END; 
265 2 1 END; 


0000 000 LENTRY PARSE_OWNER, Save nothin 
5a. OD ponos PUSHL Q_VALOE DESC . 


sere PRS Job Controller Command Parsing Utilities 1b-sep-1984 00:09:48 eet ee aicbes t b$2:1 


Page 75 
29 33) 


: 3333 


JBCCMDPRS Job Controller Command Parsing Utilities -Sep-1 709: AX-11 Bliss-32 V4.0-74 o 76 
vit “ meets ro a aT thet tts Bee ot 29° 33) 
046 AC OD PUSHL Q_DESC : 
000000006 99 05 FB CALLS ‘ . ; ISGET_VALUE : 
000° CF 04 CLRL _—- CONVERTED_UIC : 3328 
99 v CF OF PUSHAB OWNE_KEYS t 2329 
v CF OF PUSHAB OWNE STATES : | 
§ DD PUSHL @ VACUE_DESC : 
FAA OCF FB CALLS) #3, CALC_TPARSE : 
10 0 € LBS) ~=ss«aRO, 18 : 
04 ac DD PUSHL  @_DESC : 2331. 
58 DD SHL Q-VALUE_DESC : | 
g¢ BS PUSME  GRESSAGE 
000000006 00 f CALLS &#% LIBSSTOP : 
8B 00700006 8F D 1$: MOVL #7340036, (@_ICURSOR)+ t 2334 
88 AD MOVL § Q_DCURSOR, (@_ICURSOR)+ : 23 
8B D4 CLRL (0_ICURSOR)+ : 233 
BA 0000" CF 00 043 MOVL CONVERTED_UIC, (Q_DCURSOR)+ : 2339 
04 00048 2$ RET + 2342 


; Routine Size: 73 bytes, Routine Base: CODE + OB3E 


14-Sep- CLIUTL.SRC 
GLOBAL ROUTINE PARSE _PARAMETERS(PARSE_PARAMETERS_): PARSE_LINKAGE= 


oe 


i 
j FUNCTIONAL DESCRIPTION: 
is routine parses the —s qualifier, making an entry in the 
Job controller parameter List 


i INPUT PARAMETERS: 
Standard parser parameters. 


i IMPLICIT INPUTS: 
NONE 


JBCCMDPRS. B 


| output PARAMETERS: 
NONE 


IMPLICIT we 


MEAN $9 OONAVL EWN" O OONOUS Ww 


{ ROUTINE VALUE: 
NONE 


i SIDE EFFECTS: 
NONE 


yh ed WANA 
hey et 4 ONAN 
MEW Oo VMPFWwnN—oOo 
PPP PP PEE EF PMA. ANAUAPINPINIPINININININY a rt tt tt tt tt tt kt kd 


BEGIN 
++} * type tari ! Declare external registers 
STATUS; 
STATUS = CLISPRESENT(.Q_DESC); 
IF .STATUS 
THEN 
BEGIN 
LOCAL 
PARAM_COUNT; 
PARAM_COUNT = 0; 
19 UNILE-ELSGET_ VALUE (.@ -_ .Q_VALUE_DESC) DO 
ig 88 IF .PARAM_C 1 STRU 
3 89 OR <0_VALOE DESC DSt$u_LENGTH] GTRU 255 1 Q <= N <= 255 
i 3 SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 
1 9 
18 9% Q_ICURSOR(0,0,16,0) = .Q VALUE _DESC CDs SC$W_LENGTH) ; 
19 395 Q-ICURSORE2.0.16.0] = SUCS_PARAMETER_1 + -PARAM_COUNT; 
20 % Q"ICURSORES. 3 20) = ,0 OCURSOR: 
1 9 Q-CURSORLS, = 6;~ 
32 38 O"ICURSOR =". ICURSOR + 12; 
O"DCURSOR = CHSMOVE ( 
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vit ° 197808-1382 90:93 ise Yee bte daetoaechoees. 6 2:1 9° 34) 
: 2326 400 4 -Q_VAL -PESCEDS (Su LENGTH] 
; 2325 401 4 -Q" VALUE -~DESCLDS(SA-POINTERI, 
: § 4 : 4 -Q-DCURSOR) ; 
; ton 
3 § 405 PARAM_COUNT = .PARAM_COUNT + 1; 
: $33; ¢ Or ont 
3 5 4 IF, STATUS EQL CLIS_NEGATED OR .STATUS EQL CLIS_LOCNEG 
; 419 BEGIN 
: 2335 411 Q_ICURSOR[0.0,16,0) = 0; 
: alg Q-ICURSORE2.0.16.0] = SJCS$_NO_PARAMETERS; 
4 41 Q_ICURSOR ra 3 e = Py 
: 414 Q"ICURSORLS, = 0; 
: 2339 415 Q-ICURSOR = .G_ICURSOR + 12; 
: 2340 416 END; 
; 1 41 END; 
OOFC 00000 .ENTRY PARSE_PARAMETERS, Save R2,R3,R4,R5,R6,R7 =; 3343 
06 AC DD 9000¢ PUSHL > 2377 
000000006 90 1 FB 9000 CALLS #71, CLISPRESENT ; | 
5 0 pO 0000¢ MOVL 0, STATUS 3 | 
47 7 €9 0000F LBC = STATUS, 4$ : 3378 
56 D4 00012 CLRL § PARAM_COUNT + 2385. 
58 DD 00014 18 PUSHL @_VALOE_DESC ; 2386 | 
04 AC 0D 00016 PUSHL DES : | 
000000006 90 08 FB 0019 CALLS 2, CLISGET_VALUE : 
b E9 000 9 BLBC 4 : 
07 56 (D1 990 CMPL § PARAM_COUNT, #7 : 2388 | 
07 1a 00 6 BGTRU : 
OOFF 8F 68 81 000 CMPW  (Q_VALUE_DESC), #255 : 2389. 
10 1B 00020 BLEQU 3S : 
04 AC DD O002F 28: PUSHL  _DESC : 2391 | 
58 DD 00032 PUSHL Q-VALUE_DESC : 
0 DD 000 PUSHL @ : 
DD 000 PUSHL Q MESSAGE : 
000000006 00 04 F CALLS #%, LIBSSTOP F 
88 68 BO 0003F 3s: MOVW  (Q° VALUE DESC), (@_ICURSOR)+ > 2394 | 
88 a 0077 (BF AI 0 ag ADDW3 #179, OUNT,~(Q_ICURSOR)+ + 2395 | 
aa A 00 0004 MOVL  Q_DCURSOR, TO_ICURSORT+ > 2396 
4 0048 CLRL_  (@_'CURSOR)+ 3 2397 | 
6A 04 B88 68 28 00040 MOVC3 CQ" VALUE DESC) , @4(Q_VALUE_DESC), - + 2402 
SA 53 D0 MOVL R3; Q_DCURSOR ; 
6 06 INCL PARAM=C > 2405 
8 BRB 1$ + 2386 
000000006 8F i | 9 4$: cMPL STATUS, #CLIS_NEGATED > 2608 | 
000000006 8F f pj cpt STATUS. #CLIS_LOCNEG : | 
88 007F0000 = 8F 06 5$: MOVL #8323072 (Q_ICURSOR) + ; galt 
B 7c CLRO = (Q_T CURSOR) + > 2613 | 


eis sa Carettor Comment ersten weston IESE OEY MEUM | lt 


04 00074 68: RET 2 2617, 
; Routine Size: 117 bytes, | Routine Base: CODE + 0887 | 


Be Be Se Be Se Be Ge Fe Ss Ge Ge Se Ge Fe Se Ge Ge Ge Fe Ge Ge Ge Ge Se Ge Gs Ge SHS Ge Ge Ge Ge GF Gs Ge Se Ge Se Ss Se Se SF S5 Ss Ss 5s SH Os oe SESH SESE Sees 


PRIPIPIPIPININIPINIPIPDNIPININININIPYPNDPINIPINIPINININIPI PINON NIPINPOPUNUNONTY 
wa PAN 


WAN AIAIAA AIA 
SNS NNN 


LA 
SEESSSESESRI GAN AAT ALLEL ELE, 


—OODONOUSWN—0O0 


Sooo 


SESEEEES 


ere 
28 


39 


? 
a tooratLr Cement Perso wettcton TEETER PN ICR |  l 


‘8 GLOBAL ROUTINE PARSE _PRINTER(PARSE_PARAMETERS_): PARSE_LINKAGE= 
4 'e¢ j 
421 : 
4 ¢ ! FUNCTIONAL DESCRIPTION: 
4 : This routine parses the /PRINTER qualifier, making an entry in the job 
: ¢ controller parameter List. 
4 § ! INPUT PARAMETERS: 
ri 5 Standard parser parameters. 
429 ‘ IMPLICIT INPUTS: | 
: , NONE 
4 § ! OUTPUT PARAMETERS: 
. Z } NONE 
435 ' IMPLICIT OUTPUTS: 
2436 ! NONE 
2437 : 
Stes ! ROUTINE VALUE: 
2439 : NONE 
Seat : 
441 ! SIDE EFFECTS: 
244 : NONE 
244 : 
2444 !<< 
2445 
2446 BEGIN ; 
2447 PARSE _EXTERNAL_REGISTERS; ! Declare external registers 
2448 LOCAL 
2449 STATUS; 


STATUS Fe ee oO JERI 


PMorofrofronofnory 
oo oy oT ot ot et et et et 
MIVIMIVIVIUIVIUIUG 
DWDONOULSWR—O 
PANAMA ININIHN NAN ANNANAAPPINPINININININIARD tt nt st tt sk st tt tt kk tt at a 


IF .STAT | 
THEN 
PEO IRET VALUE(.Q@_DESC, .Q_VALUE_DESC) 
Q_ICURSOR b-0.1670 =".0 VALUE Desc tDSC$W_LENGTHI; | 
Q~ICURSORE2,0.16,.0) = SJC$_LOG QUEUE; 
Q-ICURSORES, 3 70] = .Q_DCURSOR; 
460 Q7 ICURSORL8, = 6; 
461 Q"ICURSOR = .@ ICURSOR + 12; 
46¢ Q"DCURSOR = CHSMOVE < 
46 -Q_VALUE_DESCEDSCSW_LENGTH) 
464 .Q- VALUE ~DESCCDSCSA_POINTERS, 
465 oe -Q~DCURSOR) ; 
4s? If Status EQL CLIS_NEGATED OR .STATUS EQL CLIS_LOCNEG 
46 BEGIN 
470 Q_ICURSOR(0,0,16,.0) = 0; 
471 Q-ICURSORE2.0.16.0) = S$JC$_NO_LOG_ SPOOL; 
47 Q"ICURSOR[S, 3 0) = 0; 
47 O71CURSORLES, = 0; 
47% Q~ICURSOR =. ICURSOR + 12; 
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04-000 ° Weasee= 188s PB BR te | PONT UT Ob isgs ge Ms Oe 78s ge 58} 
; 3400 3475 2 END; 
; 2401 476 END; 
007¢ 90000 .ENTRY PARSE_PRINTER, Save R2,R3,R4,R5,R6 : 3418 
04 aC DD 9008 PUSHL + 2452) 
000000006 90 gi FB 00 0 CALLS a, CLISPRESENT : 
6 0 pO 0000C MOVL STA Tus ; 
20 26 £9 900F BLBC eraT 1s ; 3453, 
DD 00012 PUSHL 3 WALUE DESC ; 2656 
04 AC DD 00014 PUSHL Q- ; 
000000006 00 02 FB 00017 CALLS #2, CLISGET_VALUE : 
88 B0 OO01E mOVW 86s (Q vALY E DESC) (Q_ICURSOR) + : 3457 
8B 61 BF 98 00021 MOVZBW #97 ae ta SOR)+ ~ : 438 | 
8B A D0 00025 OVL oy nsOR (Q_ICURSOR) + : 3459 
8B D4 00028 CLRL (oj SOR) + + 2460. 
6A 06 88 68 28 O002A MOVC3 (a7 SM ae @4(Q_VALUE_DESC), - + 2665 
SA 53 D0 0002 MOVL R3, : | 
000000006 &F 56 D1 00 2 1$ CMPL STATUS. a itaty _NEGATED + 2467 
09 13 0003 BEQL : 
000000006 8F 56 D1 00038 CMPL TATUS, #CLIS_LOCNEG : 
09 12 0042 BNEG Reo 
8B 00650000 =8F p 00044 2$ MOVL #6619136, (a ICURSOR) + + 2470 
88 7C 00048 CLRQ = (Q_ICu + 2472 
04 00040 3$ RET ; 2476 | 
; Routine Size: 78 bytes, Routine Base: CODE + OBFC 
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ybss00 ° aati 90:03:40 Yet tuTe sre TaccubPRs 642:1 ° (36) 


; 408 427 1 GLOBAL ROUTINE PARSE PRIORITY (PARSE_PARAMETERS,): PARSE LINKAGE 
; 2405 238 1 44 

; rt'+ 480 1! 

: 240 481 1 ! FUNCTIONAL DESCRIPTION: 

3; 2408 4 ¢ 7! This routine parses the /PRIORITY qualifier, making an entry in the job 
3 me’? n ? : controller parameter List. 

3; 2411 485 1! INPUT PARAMETERS: 

; tig 4 $ 1} Standard parser parameters. 

3 241 4 1! 

3 2616 rt +3 1 ! IMPLICIT INPUTS: 

3 2415 489 1! NONE 

> 2416 490 1! 

3 2417 491 1 ! OUTPUT PARAMETERS: 

3; 2418 492 1! NONE 

3; 2419 495 1! 

: ost 494 1 ! IMPLICIT OUTPUTS: 

3; 2421 495 1! NONE 

; re 2496 1! 

3: 242 2497 1 ! ROUTINE VALUE: 

: tse 2498 1! NONE 

> 2425 2499 1! 

> 2426 2500 1 ! SIDE EFFECTS: 

: 2427 $20) 1! NONE 

; sess 206 . 3 

5 rs 2503 1 !-- 

; st 0 S20e 1 

> 2431 505 2 BEGIN 

3 at) $208 PARSE_EXTERNAL_REGISTERS; ! Declare external registers 
3 Sts 2508 

3 2435 2509 2 IF CLISGET_VALUE(.Q_DESC, .Q_VALUE_DESC) 

: 2436 soi? THEN 

3 Erk t4 511 BEGIN 

: 2438 $216 IF 

; oir 513 4 BEGIN 

3; 2460 514 & IF NOT LIBSCVT_DTB( 

3 2441 515 4 -Q_VALUE_DESCCDSCSW_LENGTH], .Q_VALUE_DESCCDSCS$A_POINTER), 
3 246 2516 4 -Q-DCURSOR) 

3: 244 517 4 

BBB sel 

: rr $2 0 4 -Q_DCURSOR(0,0,32,0] GTRU 255 ! 0 <= N <= 255 
3 244 521 4 

7 2448 5 ; THEN 

: ves ; Z SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 
3 2451 525 

: 245 5 $ Q_ICURSOR 9. 16,0) = 4; 

3 245 5 Q_ICURSORL2,0,16,0] = SJCS_PRIORITY; 

> 2654 5 g Q-ICURSORE4, 3 70) = ,0_DCURSOR; 

> 2655 5 Q- I CURSORLS, = 6; 

> 245 530 Q7ICURSOR = .G_ICURSOR + 12; 

3: 245 531 Q DCURSOR = .Q_SCURSOR + 4; 

3: 2458 5 ; ERD; 

3; 2459 5 END; 
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0000 00 eENTRY PARSE_PRIORITY, Save nothin 3 24677. 
58 OD o002 PUSHL a-pEst . 3 3309. 

04 AC OD PUSHL $C ; 
000000006 99 FB 0 7 CALLS L 1SGET_VALUE : | 
A DD 0001 PUSHL RO; : 3516 

06 A po 1 PUSHL 4TQ VALUE_DESC) + 251 

7E C 0001 MOVZWL {9 VALUE _BESC), -(SP) : | 

000000006 00 ; FS 001 CALLS 37 L1BSCvT T_0T8 : 
QOOO0OFF BF 6A Di 09028 CMPL {9 DCURSOR) , #255 > 2520) 
04 ac DD 0002C 1$ PUSHL  Q_DESC : 2523. 
58 0D 900 F PUSHL : VALUE _DESC : | 
02 DD 00031 PUSHL 3 
59 DD 00033 PUSHL 4 MES SAGE : 
000000006 00 04 FB 90035 CALLS &% 7 BSST oP : 
8B 00820004 8F DO 900 ¢ 2$ MOVL #851 684 ICURSOR) + > 2526) 
8B BA DE 0004 MOVAL (Q_D RSOR) $7 (Q_I CURSOR) + : $528 
88 p4 00046 CLRL. 0s (Q> PEURSORD * ; 3529 
4 00048 3$: RET ; 2533) 


; Routine Size: 73 bytes, Routine Base: CODE + OC4A 
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ree Page a 
14-Sep-1984 CLIUTL.SRC JBCCMDPRS. 852;1 (37) 


H “es 5 ¢ ! GLOBAL ROUTINE PARSE_PROTECTION(PARSE_PARAMETERS_): PARSE_LINKAGE= 
5 246 83d see 

> 2664 5 $j i 

3: 2465 5 3 73 ras DESCRIPTION: 

>; 2466 2 BE This routine parses the /PROTECTION qualifier, making an entry in 
3 ter re : the job controller parameter List. 

> 2469 248 1 i INPUT PARAMETERS: 

: 2470 as 2. Standard parser parameters. 

3 2471 544 1! 

3 247 3543 1 ! IMPLICIT INPUTS: 

3; 267 248 7s NONE 

3 2476 See 7 7 

3: 2475 548 1 ! OUTPUT PARAMETERS: 

3: 24676 549 1! NONE 

3 2477 550 1! 

3; 2678 551 1°! IMPLICIT OUTPUTS: 

3: 2479 552 1! NONE 

: 2430 2553 1! 

3; 2481 2554 1 ! ROUTINE VALUE: 

3; 248 2555 1! NONE 

3; 248 $228 1! 

3: 2486 557 1! SIDE EFFECTS: 

3; 2485 558 1! NONE 

3; 2486 559 1! 

3 2487 $260 1 !=- 

3; 2488 561 1 

3; 2489 $206 BEGIN ; 

3 es $207 PARSE_EXTERNAL_REGISTERS; ! Declare external registers 
: 249 2565 

3; 249 $208 IF CLISPRESENT(.Q_DESC) 

3 2496 256 THEN 

3; 2495 568 BEGI 

> 2496 569 TPA_1 = 0; 

3 ved 270 Z WHITE CLISGET_VALUE(.@_DESC, -Q_VALUE_DESC) DO 

: rh $276 2 IF NOT CALL_TPARSE(.Q_VALUE_DESC, PROT_STATES, PROT_KEYS) 
; 23) 2375 4 en STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 
: 250 576 

3 ape 577 

3 2506 57 Q_Icu URSOR f° 16 ° = SJC$_PROTECTION; 

3; 2507 580 Q-ICcu URSORS 478-3 0] = ee 

; 2508 581 Q-1CUR = 

3 2509 38¢ Q-ICUR é ItuR SOR ¢ 12; 

3; 2510 5 Q~ _DCUR 5 = T TPA 1<0,16>; 

3 2511 a8 Q~ DC URSOR 0,16 = PA I<1B 1655 

; 31 585 Q-DCURSOR = 187) 5, a3 

3; 251 286 ERD; 

3 2514 5 END; 
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0000 .ENTRY PARSE PROTECTION, Save nothing 3 2534 
06 AC DD PUSHL : 2566 
ee ae 8) ES dooce Pe) ae Ene 4 
0000° cr D4 CLRLSséTiP’ : 3369 
8 0D 13 18 PUSHL Q_VALUE_DESC 3 2570. 
06 AC DD 0001 PUSHL Q : 
000000006 90 9 FB 1 CALLS #2, SLISGET_VALUE : | 
1F BLBC =OséaR : | 
9000v CF OOF 0 2 PUSHAB PROT_KEYS : 2572) 
v CF OF PUSHAB PROT STATES : 

DD 0002A PUSHL Q_VACUE_DESC 3 

F348 =F FB 002C CALLS #3, CALC_TPARSE : 

DF E8 00031 BLBS = «RO, _1$ : 
06 AC DD 909 PUSHL  @_DESC + 2574 

58 DD 00037 PUSHL Q-VALUE_DESC : 

9¢ DD 00039 PUSHL #2 3 

DD 900 PUSHL @ MESSAGE : 
000000006 00 04 FB 00 CALLS #%, LIB$STOP : 
D 1 b0044 BRB 1$ 3 2570 
8B 008500046 &F 09 0046 28: MOVL #$ #8716292, (Q_ICURSOR)+ : 2578 
88 A 00 00040 MOVL  Q_DCURSOR, (@_ICURSOR)+ : 2580 
8B 04 00050 CLRL (0 _ICURSOR)+ : 2581 
BA 0000" CF 8 005¢ MCOMW TPA_1, (Q_DCURSOR)+ : 2583 
8A 0000" CF 3 0005 MOVW TPA_1+2, TQ_DCURSOR)+ : 2584 
4 0005C 3$: RET : 2587 


; Routine Size: 93 bytes, Routine Base: CODE + 0C93 
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; 1§ } GLOBAL ROUTINE PARSE QUEUE (PARSE _PARAMETERS_): PARSE _LINKAGE= 
: 1 : See 

3; 251 i 

3 3 1/ aes DESCRIPTION: 

3 93 13 This routine parses a queue name qualifier, making an entry in the job 
3 § Be : controller parameter List. 

> 2526 9% 1 | INPUT PARAMETERS: 

3 ‘ 38 ! Standard parser parameters. 

; 1 IMPLICIT INPUTS: 

3 600 1: NONE 

3 601 1: 

3 ooe 1: OUTPUT PARAMETERS: 

3 1 603 1! NONE 

3 25 ¢ 606 1! 

3 2 605 1: IMPLICIT OUTPUTS: 

3 O86 .s NONE 

3; 2535 607 1: 

3 608 1 | ROUTINE VALUE: 

3: 25 609 1: NONE 

3; 25 610 1: 

3; 2539 611 1°! SIDE EFFECTS: 

3; 2540 oig 1! NONE 

3: 2541 61 1/ 

3 2e§ 614 1 i- 

: 254 615 1 

i $548 618 2 BEGIN, 
3; 2545 61 PARSE _EXTERNAL_REGISTERS; ! Declare external registers 
$ 94 oi8 LOCAL 

3 254 61 DESC: REF BBLOCK, 

3 268 620 STATUS; 

: 2 621 BUILTI 

3; 2550 6 ¢ ACTUALCOUNT; 

3 2551 6 

3 22¢ 624 

3; 255 625 DESC = .Q@ VALUE_D 

$ 228 : $ hy CLISGET OAL UEi. Q_DESC, .Q@_VALUE_DESC) 

3 228 6 3 it ACTUALCOUNT() GEQU 3 

3: 255 6 THEN 

3 2558 6 DESC = .0_P2 

3 222 631 ELS 

3 60 6 § RETURN; 

3 2561 6 

3 206 6 

3; 256 635 Q_ICURSOR(0,0,16.0) = .DESCCDSCSW_LENGTH); 

3 2564 6 Q_ICURSOR(2.0,16,0] = .Q_P1; 

: 2565 6 OQ" ICURSORES; 3 03 = .Q~DCURSOR; 

: $966 6 o-1CuRSORES, = 6; 

: 256 6 Q"ICURSOR ='.4 ICURSOR + 12; 

3; 2568 640 Q_DCURSOR = CHSMOVE ( 

3 9 641 etitiittire ptt 

: 2570 b4¢ -DESCCDSCSA~POINTERS, 

: 2571 64 -Q_DCURSOR) ; 

: 2572 644 END; 


52 

000000006 ! 

3 

52 

88 

88 

88 
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; Routine Size: 50 bytes, Routine Base: 


<p-1 FH ea aT Ra Bat 


PARSE_QUEUE 
Q_VALOE_Desé, 


2, — VALUE 
tab). 


s R2,R3,R4,R5 


ave 
DESC 


DESC 

), (Q_ICURSOR)+ 
(a_ICURSOR) + 

URSOR , (2_1CURSOR) + 
@4(DESC), (Q_DCURSOR) 

sco: RSOR 


GN Sn peaicsetees tee meee uae esos QO: 88:18 YAIGDL8LLEEGBBchdsbc7A 1 Peet 35) 


; rN oh? } GLOBAL ROUTINE PARSE_SEARCH_STRING(PARSE_PARAMETERS_): PARSE_LINKAGE= 
te oi 
F a8 649 1! FUNCTION. DESCRIPTION: 
3 6 1! are routine parses the value of the /SEARCH qualifier, 
: : : } oa ng an entry in the job controller parameter List. 
3 6 § 1 ! INPUT PARAMETERS: 
3 : ¢ ; } Standard parser parameters. 
: 5 6 $ 1 ! IMPLICIT INPUTS: 
: $5 ga} i soap 
3 2 re 1 ! OUTPUT PARAMETERS: 
3 34 660 1! NONE 
3; 2590 661 1! 
3; 2591 666 1 ! IMPLICIT OUTPUTS: 
; 238 665 1! NONE 
; 259 664 1! 
3: 2596 665 1 ! ROUTINE VALUE: 
3; 2595 $66 1! NONE 
3 298 667 1! 
3; 259 ree 1 ! SIDE EFFECTS: 
3; 2598 08 1! NONE 
3; 2599 670 1! 
; 2600 671 1 !<- 
3; 2601 ore 1 
3 O88 67 BEGIN 
3 vet or PARSE_EXTERNAL_REGISTERS; ! Declare external registers 
3; 2605 O76 
3: 2606 67 - A eaee _VALUE(.Q@_DESC, .Q_VALUE_DESC) 
3; 2607 or 
3; 2608 6 EN BEG IN 
: oo 3} i- VALUE _DESCCDSCSW_LENGTH] GTRU 63 
: oh ve SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 
: $818 re 
: 2614 685 Q_ICURSOR(O, 16.8 = .Q_VALUE_DESCCOSCSW_LENGTH); 
> 2615 6 Q-ICURSOR[2.0.16.0) = .Q7P1; 
5 dy | Q_ICURSORLSG, 3 8 = .Q_DCURSOR; 
> 261 Q-ICURSORLS, = 0; 
3 618 68 Q~ICURSOR =.@ ICURSOR + 12; 
3; 261 690 Q_DCURSOR = CHSMOVE ( 
3; 2620 691 -Q_VALUE_DESCCDSCS$W_LENGTH) 
3 2621 69 <Q” VALUE ~DESCCDSCSA_POINTERS, 
3; 26 ¢ 69 -Q-DCURSOR) ; 
3; 26 694 PT te 
3; 2624 695 
003c 00000 -ENTRY PARSE_SEARCH_STRING, Save R2,R3,R4,R5 > 2645 | 


k ? | 
ye. cpap ramet! came dete te bytes tare eSep-tobe foioesse — Eetiun SReSvacchopRs-682:1 Page 58) 


58 DD 000 PUS Q_VALUE_DESC : 2677, 
04 AC DD 0000 PUSHL Q7DE : | 
000000006 ° 9 4} ys H¥ SLISGET VALUE : 
F 6 81 C (Q’VALUE_DESC), #63 + 2680 | 
8 BLEQU 1$ 3 
06 AC DD PUSHL  Q_DESC + 2682 
DD PUSHL  Q-VALUE_DESC : 
DOD PUSHL #2 3 
DD PUSHL @ MESSAGE : 
000000006 F CALLS #%, LIBSSTOP : 
68 8B 1$: Vd (Q VALUE_DESC), (Q@_ICURSOR)+ + 2685 
08 AC B Vw Q.P1, (Q7ICURSOR)+ : 686 
SA D MOVL  Q"DCURSOR, (Q_ICURSOR)+ + 268 
68 D4 CLRL_  (O_ICURSOR)+ ; 688 
6A 04 88 68 28 MOVC3 (O-VALUE DESC), @4(Q_VALUE_DESC), - 3 269 
SA 53 DO 90037 MOVL R3; Q_DCURSOR 3 
04 0003A 2$: RET + 2695 


3; Routine Size: 59 bytes, Routine Base: CODE + 0D22 
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GLOBAL ROUTINE PARSE _STRING(PARSE _PARAMETERS_): PARSE_LINKAGE= 


aa 
+ 


{| FUNCTIONAL DESCRIPTION: 
conten an entry th ‘the 


INPUT PARAMETERS: 
Standard parser parameters. 


| IMPLICIT INPUTS: 


ob controller parameter List. 


i OUTPUT PARAMETERS: 
NONE 
eter |! eee 

{ ROUTINE io 


{ SIDE EFFECTS: 
NONE 


a ow err tr tr tr tt te? tt te? tt te tt tt te tt tt tet tt te te 


EGIN 

+} * pata tanita ! Declare external registers 
STATUS; 

ACTUAL COUNT; 


BUILTIN 


STAT 
IF 


CLISPRESENT(.Q_DESC); 


(crm «Mn 
oz 
m " 


> 
ececees 
S<<S3sssa_ 
Seen weence 
ou Booze: oe 


C$W_LENGTH) 
CSA “POINTERS, 


Soe 
o<< 
So 


. 
—~ ese 


Cc 


routine perse Ale ye whose value is an arbitrary string, 


tie ab Job Controller Command Parsing Utilities 16-8 a 138% 99: + 8 AX-11 Bliss-32 V4.0- 


9 CLTUTL SRE SJBCCMDPRS-B82; 1 
; ae G-IcuRsoRt6.0,35°03 = 0; 
5 , tr CUR 
£26 ° 


1 
“| 
ICUR 6_ICurs SOR 
QD; 


i 


007¢ 000 .ENTRY PARSE_STRING, Save R2,R3,R4,R5,R6 
04 aC DD 99 PUSHL D 
000000006 90 2 F CALLS #1, CLISPRESENT 
6 0 pO 0000¢ VL RO, STATUS 
20 36 E9 OO000F BLBC STATUS, 1$ 
58 DD 00012 PUSHL  Q_VALUE_DESC 
04 AC DD 00014 PUSHL § 
000000006 00 02 FB 00017 CALLS #2, CLISGET_VALUE 
88 68 B80 oot MOVW (Q VALUE oESC). (Q_ICURSOR)+ 
&8 08 Ac BO 00021 MOVW Q_P1, (Q-ICURSOR)+ 
88 5A DO 00025 MOVL  Q~DCURSOR (a. ICURSOR) * 
8 pb 00028 CLRL_  (@_ICURSO 
6A 04 88 68 28 0002A MOVC3 (Q"VALUE DESC) @4(Q_VALUE_DESC), 
SA 53 00 909 F MOVL 3, Q_DCURSOR 
000000006 &F 56 D1 000 2 1$: CMPL TATUS, #CLIS_NEGATED 
09 13 000 BEQL 
000000006 8F 56 Di 0058 CMPL TATUS, #CLIS_LOCNEG 
0D \2 004 BNE 
03 C 91 00044 2S: CMPB sé AP), #3 
8 1F 00047 BLSSU 
B B4 00049 CLRW  (Q_ICURSOR)+ 
8B Oc AC 80 048 MOVW OP (a. ICURSOR) + 
8B 7C O004F CLRQ  (O_ICUR 
04 00051 38: RET 


3; Routine Size: 82 bytes, Routine Base: CODE + ODSD 


Page 91. 


(40) 


Be Se Se Se Se Ge Ge Be Gs Se Se Ge Se Se Fe Se Se Ge Se Se Se Fe Ge Se Se 
~ 
= 
uw 


scr 


PIPIPIPININONY <2 = ot ot 2 


MEU =O OCONOUSWUN “OVDOVNOUSWN—O 


SNS NNN NNN NNN SNS NSS SSS SSS =] 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
LOCAL 


ee 
i 
ments DESCRIPTION: 


of up to 2 
parameter List. 


INPUT PARAMETERS: 
Standard parser parameters. 


IMPLICIT tai 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i QUTPUT PARAMETERS: 
NONE 

i IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE : 

i 

SIDE EFFECTS: 

i 

ie 


PARSE _EXTERNAL_REGISTERS; 
STATUS; 
ACTUAL COUNT; 


! Declare external registers 


BUILTIN 
LISPRESENT(.Q_DESC); 


N 
GET_VALUE(.Q_DESC, .Q@_VALUE_DESC); 


4 s0-WALUE_DESCCDSCSU_LENGTH) GTRU 255 
SIGNAL _STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 


0. ALUE_DESCCDSC$W_LENGTH); 
-Q~DCURSOR; 
6:7 


is rout ioe parses a qualifier whose value is an arbitrar 
characters, making an entry in the job contro 


esos 9:88:18 


GLOBAL ROUTINE PARSE_STRING_255(PARSE_PARAMETERS_): PARSE_LINKAGE= 


AX=11 Bliss-32 V4.0 reg 
CLIUTL. gre JBCCMDPRS.B 2;1 


7 cers 


Pa 92 
a Tt hh 


p 8 
JBCCMDPRS Job Controller Command Parsing Utilities 1bes ep- AX-11 Biiss-32 V4.0-7 Page 95 | 
v04=000 ° 14- ge) 3B 99: 83 if CLIUTL.SRCJJBCCMDPRS. 3 2:1 ald 
: 27% 815 .Q_DCURSOR); 
: 274 B16 ND; 
: 2748 81 IF (.STATUS EQL CLIS NEGATED OR .STATUS EQL CLI$_LOCNEG) 
; £49 Bi AND yACTUALCOUNT (> GEO 
> 2751 8 
: ie} 801 Bf ~{CUnsoR ,0,16,0) = 0; 
: rag g : Q-ICU ate. . } = ,0_P2; 
> 2756 8 a” ~1CUR 4. 3 -0] = 0; 
: 2755 824 Q~ cu URSORES 8, 0) = 0; 
> 2756 825 or ICU =", G_ICURSOR + 12; 
: 2757 8 é END; 
: 2758 8 END; 
007¢ 00000 ENTRY PARSE_STRING_255, Save R2,R3,R4,R5,R6 : 2758 
04 AC dD 00002 PUSHL > 2795 | 
000000006 00 01 FB 00005 CALLS #71, CLISPRESENT ; 
of 50 00 0000¢ MOVL RO. STATUS ; 
37 56 E9 OO00F BLBC STATUS, 2$ : 2796| 
58 DOD 00012 PUSHL Q_VALUE_DESC + 2799 
04 AC DD 00014 PUSHL § F 
000000006 00 08 FB 00017 CALLS #2, CLISGET_VALUE : 
OOFF &8F 68 81 OO01E CMPW  (Q_VALUE_DESC), #255 : 2802 | 
10 18 0002 BLEQU 1$7 F | 
04 AC DD 00025 PUSHL  Q_DESC + 2804 
58 DD 00028 PUSHL Q-VALUE_DESC : 
25 DD 0002A PUSHL F 
59 0D 0002C PUSHL G : 
000000006 00 04 FB O00¢E CALLS #%, LIBSSTOP F 
8B 68 8B 900 1$ MOVW  (Q VALUE_DESC), (@_ICURSOR)+ : 3807 
8B 08 AC BO 00038 MOVW  Q_P1, (Q-ICURSOR)+ ; 2808 
8B 5A DO 0003C MOVL  Q7DCURSOR, (Q_ ICURSOR) + : 2809 
BB D4 0003F CLRL_  (@_ICURSOR)+ : 2810 
6A 04 88 68 28 00041 MOVC3 (a =bebneony @4(Q_VALUE_DESC), = > 2815 
SA 53 D0 00046 MOVL 3, URSOR ; 
000000006 &F 56 D1 00049 28 CMPL TATUSS witaty _NEGATED : 2817 
09 13 0005 BEQL ; 
000000006 8F 56 01 0005 CMPL STATUS, #CLIS_LOCNEG ; 
0D le 009 BNEQ ; | 
03 6¢ 91 00058 3$: CMPB sé A+), #3 : 2818. 
08 iF 0056 BLSSU ; 
8B B4 0006 CLRW  (Q_ICURSOR)+ : 3821 
8B Oc Ac 80 0062 MOVW 86 P (a, ICURSOR) + : 28 ¢ | 
88 7C 0066 CLRQ © (@_ICUR ; 380 
04 00068 4$: RET 3; 28 vy] 


3; Routine Size: 105 bytes, Routine Base: CODE + ODAF 


4 


FCRpERS Job Controller Command Parsing Utilities 16-Sep-1984 90:09:42 AX-11 8 


iss-32 V4.0-74 Page 94 
14-Sep-1 CLIUTL ¢j OS 68251 ° 


L 
SRCJJBCCMDP (42) 


4 760 $ $ } GLOBAL ROUTINE PARSE_USER(PARSE_PARAMETERS_): PARSE_LINKAGE= 

3: 276 $ QO 1 !44 

; 276 a. wae 

3; 2764 8 § 1 ! FUNCTIONAL DESCRIPTION: 

3; 2765 8 1! This routine parses the value of the /USER qualifier, making an entry 
: 168 834 1! in the job controller parameter List. 

3; 276 835 1! 

3; 2768 8 $ 1 ! INPUT PARAMETERS: 

3; 2769 8 1! Standard parser parameters. 

3; 2770 $83 1! 

3: 2771 839 1! IMPLICIT INPUTS: 

: ak 840 1! NONE 

3; 277 841 1! 

: sire a6 1 ! OUTPUT PARAMETERS: 

3; 2775 843 1! NONE 

3: 2776 844 1! 

: 2777 2845 1 ! IMPLICIT OUTPUTS: 

3; 2778 846 1! NONE 

3 2779 847 1! 

; 2780 848 1 ! ROUTINE VALUE: 

3 sie) 2849 1! NONE 

: 4 seat 1! 

3; 278 851 1 ! SIDE EFFECTS: 
3: 2784 o2¢ 1! NONE 

3; 2785 853 1! 

3: 2786 854 1 !<- 

3; 2787 2855 1 

3; 2788 2856 BEGIN ; 

: 2789 2857 PARSE _EXTERNAL_REGISTERS; ! Declare external registers 

3; 2790 2858 EXTERNAL ROUTI 

3; 2791 2859 LGISSEARCHUSER: WEAK ADDRESSING_MODE (GENERAL) ; 

3: 2792 2860 LOCAL 

3 2793 2861 UAF _DESC: VECTORC2) ! Descriptor for UAF buffer 
> 2794 386¢ UAF BUFFER: BBLOCKCUAFSC_LENGTH], ' UAF record for user 
: 2795 286 STATUS; 

; $f3e 2864 

3: 2797 2865 

3; 2798 2866 IF CLISGET_VALUE(.Q@_DESC, .Q@_VALUE_DESC) 

3; 2799 2867 THEN 

3 sone secs BEGIN 

; rt 56? if. 0 VALUE DESCEDSCOM_LENSTHD - 1 GTRU 12 - 1 ' 1 <= N <= 12 
3 808 ert SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 

3; 2805 $78 

3 306 aoe Ue DESL? = ZALLOCATION(UAF _BUFFER); 

: 280 75 UAF_DESCC1) = UAF_BUFFER; 

3 2808 876 STATUS = LGISSEARTHUSER(.Q_VALUE_DESC, 0, UAF_DESC); 

3; 2809 87 IF NOT .STATUS 

3; 2810 1h 

3; 2811 79 IF .STATUS LSS 0 

3 sig 880 HEN 

3 Ht Bae SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC) 

3 2815 ass SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC, .STATUS); 


dD. 8 
Job Controller Command Parsing Utilities 16-Sep-1984 00:09:18 AX-11 Bliss-32 V4.0-74 Pp 95 
° easeen13be 93:08 se | eT bT tes echoes bS2.1 eaters 


ge sal 


: 2817 5 

: 18 § Q_ICURSOR(0.0,16,0) = 25; 

: 281 Q-ICURSORE2.0,16,0] = Suts USER IDENTIFICATION; 
> 2820 8 Q-1 CURSOR 440.3¢.0) = Q_pCUR 

; 2821 89 O71 CURSORLE 8. = 6; 

: 28 : 90 Q-ICUR 6 yh CyRso SOR + 12; 

; 8 91 Q “DEURSORCO, 6 .UAF _BUFFERCUAFSL_UIC); 
> 2824 89¢ Q"DCURSOR = 05 Stun OR’ + 43 

: 2825 89 Q"DCUR SOR = CHSMOVE ( 

3 28 g 894 UAFSS USER 

: 28 895 BOFFERTUAEST _USERNAME], 

3 2828 896 0 BCURSOR R); 

3 2829 9 Q cits = CHSAOVE ( 

: 2830 898 AF SS ACCOUNT 

: 2831 899 Var Sorren UAFS$T_ACCOUNT], 

3 ob3¢ 900 .Q BCURSOR); 

3; 283 901 Q_DCURSOR 0,0,8,0] = .UAF_BUFFERCUAFSB _PRIJ; 
; 834 290¢ Q “DCURSOR = .Q_DCURSOR + T; 

> 2835 2903 2 END; 

3 2836 2904 1 END; 


.WEAK LGISSEARCHUSER | 


007¢ 00000 .ENTRY PARSE_USER, Save R2,R3,R4,R5,R6 : 2828 | 
56 000000006 00 9€ 00002 MOVAB LIBSSTOP, R6 : | 
5E FA74 ce 9E 00009 MOVAB =1420(SP Ps SP : | 
DD 0000E PUSHL  Q_VALUE Pest : 2866. 
04 AC OD 80010 PUSHL Q- ; 
000000006 00 02 FB 0001 CALLS #2, CLISGET_VALUE 3 
76 50 EY OOO1A BLBC . : 
50 68 3C 0001D MOVZWL (Q.VALUE_DESC), RO : 2869. 
50 07 00020 DECL ; 
0B 50 D1 0 : L —sRO,, #11 : 
0c 18 0 BLEQU 1$ ; | 
06 AC OD 7 PUSHL  Q_DESC ; 2871. 
58 DD 0002A PUSHL  Q”VALUE_DESC : 
08 DD 0 C PUSHL #2 ; | 
DD PUSHL Me ESSAGE : 
66 04 FB ALLS Sates : 
Fe AD 0586 BE aC : MOVZWL nee DESC : 2874 
FC AD 6E 9E 9 OVAB UA F_BUFFER> UAF_DESC+4 : 2875 | 
F8 AD 9 i PUSHAB UAF “DESC ; 2876 
5 DD 0004 PUSHL  @ VALUE : 
000000006 90 F 44 CALLS 3 “atGiSSEARCHUsER : 
0 6 E 48 : 3877 
D 4 : 2879 | 
OE 1 5 3 
AC DD PUSHL Q_DESC > 2881 
DD PUSHL  Q”VALUE_DESC F 
DD PUSHL ; 
DD 9 PUSHL MESSAGE : 
rf Fe 8 CALLS an LIBSSTOP : 
5 DD Fi : STATUS ; 


2883 


19be ai0erse — Lekiute sReiuaccmpeRs 682: Page 3 
PUSHL  Q_DESC 
PUSHL Q-VALUE_DESC 


PUSHL a MEE ror 
A363b8 (Q_ICURSOR) + 


nom 
eeoom 


JBCCMDPRS Job Controller Command Parsing Utiliti 
04-000 ‘ = 


= 
a 


04 


6 
es 00960019 


COIN AAO 


OUMUIVINN & OUD OMOuU'l 
MANOWOMD & ™NOroon 
Owuoowvonvovovv7o"vovoVToT7 
moo cum PouwnmonvTw —— 
ww 
wn 
zo 
oF 
<r 
cr 
(7,1 


FOOWOMDOLOOWVTTTFo 


MOVL  Q_DCURSOR, (O_ICURSOR)+ : 2888 | 

CLRL (0 ICURSOR)+ + 2889 

BA 24 MOVL_ UAF_BUFFER+36, (Q_DCURSOR)+ + 2891 

6A 06 AE MOVC3 #327 UAF BUFFER+4> (Q_DCURSOR) + 2896 
SA MOVL. R RSOR : | 
6A 34 moves # 2, DAF _BUFFER+52, (Q_DCURSOR) : 2900) 
BA 0204 008 MOVE = UAF_BOFFER+516, (Q_DCURSOR)+ + 2901 

0093 4$: RET + 2904 


; Routine Size: 148 bytes, Routine Base: CODE + 0E18 


JBCCMDPRS Job Controller Command Parsing Utilities 1hase -1984 8 AX-11 Bliss-32 v4.0-74 Page 97 
yOc000 ° 1e-8ep-1986 99: 88; i CLIUTL.SRC Tac cMDPRS B82:1 ° (43s 
; HS +t : GLOBAL ROUTINE PARSE _WORKING_SET(PARSE_PARAMETERS_): PARSE_LINKAGE= 
: 2840 907 1 !44 

3: 2841 908 1! 

; ote 909 1 ! FUNCTIONAL DESCRIPTION: 

3; 284 910 1! This routine parses the working set qualifiers, making an entry in the 
3; 2844 911 «1! job controller parameter List. 

3; 2845 31g 1! 

3 2846 915 1°! INPUT PARAMETERS: 

3 2847 914 1! Standard parser parameters. 

3; 2848 915 1! 

3 seep 318 1! IMPLICIT INPUTS: 

; 2850 917 1! NONE 

: 2851 918 1! 

3 £26 919 1 ! OUTPUT PARAMETERS: 

3; 285 920 1! NONE 

3; 2854 921 1! 

3: 2855 9 1 ! IMPLICIT OUTPUTS: 

; 2856 9 1! NONE 

> 2857 924 1: 

3; 2858 925 1 ! ROUTINE VALUE: 

3; 2859 926 1! NONE 

3; 2860 44 1! 

3; 2861 928 1! SIDE EFFECTS: 

3 506 44 1! NONE 

; see $3 01! 

3 2864 931 1 Ie 

3: 2865 $3e6 1 

3 2866 293 BEGIN 

: 4444 $oRe PARSE _EXTERNAL_REGISTERS; ! Declare external registers 

3 $Bc0 2936 

3 2870 2937 2 IF CLISGET_VALUE(.Q_DESC, .Q_VALUE_DESC) 

: 2871 2938 THEN 

; $e58 2939 BEGIN 

3; 287 2940 IF CALL. TPARSE(.Q_VALUE_DESC, NONE_STATES, NONE_KEYS) 

ae Bao 

3; 2876 308 4 age URSOR 2:0:16:03 = 0; 

; 2877 944 4 Q-ICU URSOR -0,16,0) = .Q_P2; 

> 2878 945 4 Q-ICURSORE4.0.32.0] = 6; 

3; 2879 3a6 4 Q- =i CURSOR 8, 0,32,0) = 0; 

; 2880 947 & Q7ICUR .@_ICURSOR + 12; 

3 Ht oe8 4 ERD 

3 $ 949 3 ELSE 

3; 288 950 4 BEGIN 

3; 2884 951 4 IF 

3; 2885 926 : BEGIN 

3: 2886 95 IF Nor LIBSCVT 4M 

3; 2887 954 2 VALUE DESC DSC$W_LENGTH], .Q_VALUE_DESCCDSCSA_POINTER), 
3; 2888 955 “O-DCURSOR) 

3 9 328 N 

: 4 935 -Q_DCURSOR(0,0,32,0] GTRU 65535 ' 0 <= N <= 65535 
3; 289 960 

3 2894 961 4 THEN 


Job Controller Comma 


sera 


nd Parsing Utilities 18-Sep-1944 00:03:48 Ax-11 B 


; B95 963 4 SIGNAL_STOP(.Q_MESSAGE, 2, .Q_VALUE_DESC, .Q_DESC); 
: $836 ges a IF .Q DCURSORLO,0,32,0) EQL 0 
° oF - s e ee . 
3; 2899 966 4 THEN 
: 2900 96 BEGIN 
: 2901 968 Q_ICURSOR Q. 16.0 = 0; 
3 290 969 Q-ICURSOR(E2,0.16,0] = .Q_P2; 
3 290 970 Q-ICURSOR(S, 3 9 = 6; 
: 2904 971 Q-ICURSORLS, = 0; 
: 2905 4 QF CURSOR =".4_I¢URSOR + 12; 
; 309 974 4 ELSE 
3 2908 975 5 BEGIN 
: 2909 976 § Q_ICURSOR 9.0.16.0] = 4; 
: 2910 97 3 Q-ICURSORE2,0,16,.0] = .Q_P1; 
> 2911 978 Q-ICURSOR 4.0.3 °0] = ,Q7DCURSOR; 
: gig 979 3 Q"-ICURSOR(8,0,32,0] = 0; 
: 291 2980 Q7ICURSOR = .Q_ICURSOR + 12; 
: 2914 2981 5 Q-DCURSOR = .Q-DCURSOR + 4; 
: 2915 298 4 END; 
3: 2916 983 3 END; 
3 2917 2984 2 END; 
: 2918 2985 1 END: 
0000 00000 ENTRY PARSE_WORKING_SET, Save nothing 
58 DD 00002 PUSHL Q_VALOE_DESC 
04 AC DD 00004 PUSHL Q7DESC 
000000006 00 08 FB 00007 CALLS #2, CLISGET_VALUE 
SF 34 0000 LBC 6% 
0000v CF 9F 00011 PUSHAB NONE_KEY 
0000v CF 9F 00015 PUSHAB NONE STATES 
58 DD 00019 PUSHL Q_VACUE_DESC 
F140 s CF 03 Fe 0018 CALLS #3, GALC_TPARSE 
2F 50 €8 000 9 LBS $ 
SA OD 90 PUSHL Q_DCURSOR 
04 A BD 0 3 PUSHL 4TQ VALUE DESC) 
7E 68 3C¢ 000 MOVZWL (Q VALUE DESC), -(SP) 
000000006 00 9 Fs 00 CALLS #3, LIBSCVT_DTB 
09 0.€ 9 BLBC 3E_s«aO.*18 
OOOOFFFF 8F 6A 01 CMPL  (Q. DCURSOR), #65535 
10 1B 0003C¢ BLEGU 2$ 
04 AC DD 99 f 1$: PUSHL Q_DESC 
58 DD 0004 PUSHL @~VALUE_DESC 
g DD 0004 PUSHL 
DD 0004 PUSHL Q MESSAGE 
000000006 00 04 F 4 CALLS 4#%, LIBSSTOP 
6A p 4E 28: TSTL (0 DCURSOR) 
0c BNEO 
6B B4 3$: CLRW 2 (Q JCURSOR) 
02 AB o¢ AC 80 MOVW Q P2, 210 ICURSOR) 
4 AB rt 9 CLRQ 4TO_{cURSOR) 
OF 1 C BRB 5$ 


blegose ye ores 
CLIUTL.SRCJJBCCMDPRS.832;1 


rane SS 


2 ee eee — — 


eR Snel nenenen tt amma Dress spe HESeB-49RE Q9:GB:42  WAEGU A SEESGBE NARs 7ABo. 


AX 
CL 

6B 04 4$: MOVW #4, (Q@_ICURSOR) 
92 AB 08 AC Bo , MOVW =. 1 t§ ICURSOR) 

AB 8A DE MOV (O_DEURSOR)+, 4(Q_ICURSOR) 

08 AB OD A CLRL. 8(0_ICURSOR) 
SR oc CO 00060 5$: ADDL2 #127 Q_ICURSOR 
04 00070 6S: RET 


; Routine Size: 113 bytes, Routine Base: CODE + OEAC 


——— 


8 
JBCC s Job Controller Command Parsing Utilities rhese -1984 00:09:18 AX-11 Bliss-32 v4. P 100 
vient ° easee tobe FOR ke | eet baesaechoPRs 6$2.1 28e ha) 


: 29 1 SINIT STATE(NONE_STATES, NONE_KEYS); 
: 25 Pp 1 SSTATEC , 

3; 23 § 3 1 ("NONE')); 

3 2 Pp 1 SSTATE( 

3 25 $ 4 (TPAS_EOS, TPAS_EXIT)); 

: 29 992 1 

3 2s : i 1 SINIT_STATECINFI_STATES, INFI_KEYS); 
3; 23 P 2994 15 TEC 

: 29 5 1 ("INF INITE")): 

3 2 Pp 996 1 SSTATE( 

; 2s : (TPAS_EOS, TPAS_EXIT)); 

; 1 

3 2s 900 1 SINIT_STATE(SYMB_STATES, SYMB_KEYS); 
3 2935 p 3001 1 $STATE< 

3 29 90¢ 1 (TPAS_SYMBOL)); 

: 2s Pp 3003 1 SSTATE( 

3; 29 004 1 (TPAS_EOS, TPAS_EXIT)); 

; +44 005 ! 

> 2941 isd 1 SINIT_STATE(MASK_STATES, MASK_KEYS); 
> 25 3 P 3008 1 SSTATEC 

: 29 009 1 C"MASK")); 

+ 2944 P 3010 1 SSTATEC 

3 2945 011 1 (TPAS_EOS, TPAS_EXIT)); 

: $309 B18 

3 29 4 O14 Sinit STATE(OWNE_STATES, OWNE_KEYS); 
3 2950 016 1 (TPAS_IDENT,,..CONVERTED_UIC)); 
3 2951 Pp 3017 1 SSTATEC 

3 93¢ O18 1 (TPAS_EOS, TPAS_EXIT)); 

: 58 020 | 

: 2955 $54 1 SINIT_STATE(PROT_STATES, PROT_KEYS); 
; 996 P 30 5 1 SSTATE (NEXT 

> 295 P 3023 1 (SYSTEM -SYPR. 3X" 000F 0000", TPA 1). 
: 2958 P 3024 1 ("OWNER', “QUPR X'00F 00000". TPA71). 
: 2959 P 3025 1 ("GROUP’, GRP Rx 0F000000" ; 1PAT 1) 
3 2960 0 6 1 (*WORLD', WOPR..%X°F0000000". TPA~1)5; 
> 2961 P 08 1 SSTATE(SYPR, 

3 +t e 0 8 1 ( = 

: 296 P 9 9 1 ("="); 

3 296 1 (TPAS’ LAMBDA, ENDPRO) ); 

3 2965 p 3031 1 SSTATE(S (SYPRO 

+ 2966 P 30 ; 1 (*R eT »o3X0001" ,TPA_1), 

+ 296 Pp 3033 1 ("W'S SYPRO..%X°0002".TPA-1), 

D4 7OE P 0 1 ("E*.S a oon" 004°, TPA_1), 

> 2969 Pp 3035 1 ("D* “SYPRO,.2X°0008" .TPA-1). 

: 2970 1 (TPa$ VAreoke mares 

: 971 P SSTATE(OWPR, 

: 297 P 1 (ren, 

+ 297% 0 1 (TPA$. LAMBDA, ENDPRO)); 

> 2975 P 3041 1 SSTATE(OWPRO 

: 2976 P 3042 1 (*R® ,OWPRO, ,.3X°0010", TPA_1), 


.} 
JBCCMDPRS Job Controller Command Parsing Utilities these “19 09:18 AX-11 Bliss-32 v4.0-74 101 
yOs+000 ee 1exgeen13be 99:08:58 ya 


-Sep-19 CLIUTL.SRCJJBCCMDPRS .852;1 (44) 
(*w" ,OWPRO, ,2x" iB: -TPA_1), 
Ha 43008 Hiss }} 


a) 
(TPAS” puAMBDA. ENDPRO)); 
werent s 


ar oo BX" »TPA_1), 
eee BAe ek ;TPA-1). 
8 . 


suifitioko »ENDPRO) 5; 


("2")? 

(TPAS. LAMBDA,ENDPRO)); 

SSTATE (WOPRO 

C7R, -WOPRO. «2X 1000", TPA. 1). 
"Wy" ;WOPRO, .2X'2000" ,TPA@1), 

+x 600 TPATTD. 

*D* ,WOPR 2x Bas * TPA_1), 

(TPA$_ LAMBDA, END 


RO)S; cs 
SSTATE CENBBRO 
( 
(TPa$ "EOS. pag EXIT); 


DONA EW" OOONOUNE Ww 


OOOoooooo 
PAPAIN 


ab at 8 te 8 ne ts ae ds Sd 8 tL 
Sad 


Stes 


wn 


vu vUuUVUUY vUUV VUVUU vVUUD vUDU 


secre 
BIT} fStoon 


45 54 49 4€E 


4D 45 
52 
50 


4a 


>) 


49 


48 


54 


45 


55 


4c 


4E 


46 


53 


53 


4E 


4F 


52 


4F 


4E 


41 


59 


57 


52 


4F 
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0500 


iSoseo-toge 09:08:18 


«PSECT 
00000 ; TRASKEYSTO 


00000 : TPASKEYST 
a: ASCII 


b. 
$6098 er i, 


U.6: -BY 
00006 s TPASKEYSTO 


8 
gon TRASKEVFILL 
00010 ; TPASKEYSTO 

0.22:  .BLKB 
00010 ; TPASKEYST 
U.26: ase 


0001 
te sTPASKEVE ILL 
00016 ; ; TPASKEYSTO 


v. 8 
00016 : TPASKEYST 
0373 ASCII 
0001C “BYTE 
00016 : TPASKEYSTO 
U.43: -BLK 
0001D A*egeuevs? 
ASCII 
SHH scemceitl 
0023 ; TPASKEYSTO 
0.51: | .BL 
00023 ; TPASKEYST 
U.53: Ase 


$0039 -TpASKEYStO 


.B 
00029 ; TPASKEYST 
U.61: ASCII 


88 bse -BYTE 
OO2F ; TPASKEYFILL 
0.67:  .BYTE 


-PSECT 
00000 NONE _STATES:: 


LK 
00000 ; TPASTYPE 
U.5: WO 


I] 
E 


AX-11 Bliss-32 eer at 
CLIUTL.SRCJJBCCMDPRS .B52;1 


-LIBSKEY1S,NOWRT, SHR, PIC,1 


ahem 


1 


sae 


or" 


0 
yum 


-1 


-LIBSSTATES,NOWRT, SHR, PIC,1 


0 
1280 
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15*7 00002 “Ne ppebee 
FFFF 00004 Vy raceme 


9000 INFI suit 


0500 00008 sTPAST PE 

15F7 O000A -TPASTYPE 

FFFF O000C ; TPASTARGET 
16: .WO 


$0015 SYMB_ staiesse 


05F1 00010 ; TPASTYPE ’ 
U.18: — ,WORD 

15F7 00012 sipasrveé 

FFFF 00014 ; TPASTARGET 
-20: WOR 


-BLKB 
$0018 MASK STATES: 


0500 00018 aTRASTYPE 
15F7 OOO1A TRAST YPE 
FFFF QOO1C ; TPASTARGET 

: WORD 


WORD 


OOO1E “BLKB 

00026 OWNE_STATES:: 
45EC 00020 ; gTBASTYPE 
00000000 00022 ; = iBASADDR 


0.31: 
15F7 00026 CTPASTYPE- 


U.5e: 
FFFF 00028 ; TPASTARGET 
«33:  .WORD 


0002A -BLKB 
0002C PROT_STATES:: 


.BLKB 
002C NEXTPRO: .BLKB 

7100 Tita : TPASTYPE 

00000000* 0002E ; TPASADDR 
.39: LONG 

000F0000 00032 ; TPASMASK 


0.40: ot 
0000* 00036 ; TPASTARGET 


7101 00038 Ciphényeé 
00000000 0003A ; TPASADDR 


iSseo-1964 99:09:18 


AX-11 Blis feqrze v4.0- 743 
CLIUTL.SRC JBCCMDPRS.B 2:1 


<<CONVERTED_UIC-U.31>=4> 
5623 
=1 


28928 
<<TPA_1-U.39>-4> 
983040 
<<U.41°U.42>-2> 
28929 
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00F00000 0003€ 


7044 00088 


ieeect9Rs §8:98:1 


47: LONG 
i ramet 
0000* 00042 ; TPASTARGET 
0.50: . WORD 
00044 ; TPASTYPE 
U.54: WORD 
00046 ; TPASADDR 
U.55: LONG 
0004A ; TPASMASK 
U.56: - LONG 
OO04E ; TPASTARGET 
U.58: WORD 
00050 ; TPASTYPE 
U.62: WORD 
00052 + pee 
00056 Wes ees Pm 
OOOSA ; TPASTARGET 
U.66: WORD 
O005C ;SYPR 
U.41: -BLKB 
OO00SC ; TPASTYPE 
U.68: WORD 
OOOSE ; TPASTYPE 
U.69: - WORD 
00060 ; TPASTYPE 
U.70: ~ WORD 
00062 ; TPASTARGET 
U.72: WOR 
0064 SYPRO: .BLKB 
0064 ; TPASTYPE 
U.033 - WORD 
00066 ; TPASADDR 
U. 74: -LONG 
0006A ; TPASMASK 
75: LONG 
OOO6E ; TPASTARGET 
U. 76: .WOR 
00070 ; TPASTYPE 
U. 77: - WORD 
00072 ; MS Tee 
00076 tegen 5 ae 
0007A j, oaetanes! 
Q007C ; TPASTYPE 
U.81:  .WORD 
0007E hy «ugg PM 
00082 AL ren PO 
00086 ; TPASTARGET 
ate WORD 


<<TPA_1°U.47>=4> 
15728640 
<<U.49-U.50>=2> 
28930 
<<TPA_1*U.55>=4> 
251658240 
<<U.57°U.58>-2> 
29955 
<<TPA_1°U.63>=4> 
268435456 
<<U.65-U.66>-2> 
0 

58 

61 

5622 

GU. F1-W.1e>~8> 


28754 
<<TPA_1°U.74>-4> 
1 
<<SYPRO-U.76>-2> 
28759 
<<TPA_ 
2 
<<SYPRO-U.80>-2> 
28741 
<<TPA_1-U.82>-4> 
4 
<<SYPRO-U.84>-2> 


1-U.78>-4> 


AX-11 Bliss-32 V4.0 
CLIUTL.SRC JBCCMDPRS. if 2:1 


iY 8 
Job Controller Command Parsing Utilities ep-19 9: AX-11 Bliss-32 V4.0-7 
127808-1382 99: 4 ‘48 criutee SRC JBC CMD PRS B 2:1 
85: WOR 74 
00000008 0008€ 1,86: at 
U.87: ab On6 8 
—e bs; Gone <<SYPRO=U.88>=2 
e H e -U. -2Z> 
15F6 00094 ZIBASTYPE one 
en jiBASTARGET <<U.71-U.90>-2> 
nite jouer ‘ae 0 tis 
003A 00098 ZIBASTYPE - 
003D O009A ; TPASTYPE 
0.92:  .WORD 61 
15F6 0009C¢ ZIBASTYPE ai 
0000* O009E ; TPASTARGET 
U.94: WOR <<U.71°U.94>-2> 
OOAO OWPRO: <BLKB 0 
7052 000A0 RIBASTYPE pam 
00000000* 000a2 ZTBASADDR isscead thik aia 
270: P “U.96>-4> 
00000010 O00A6 ; TPASMASK . 
0.97: .LONG 16 
—e AYE via <<OWPRO-U.98>=2 
e . e “VU. -2d> 
7057 OOOAC ; TPASTYPE 
0.99:  .WORD 28759 
—— b Too Lone <<TPA_1-U.100>-4 
2 : . = . a > 
00000020 00082 ;TPASMAS . 
0.101: .LONG 32 
ay, Sees a Hee <<OWPRO-U. 102>-2> 
7045 00088 sipagtveé laeed : 
00000000* 000BA ; TPASADDR , 
0.104: LONG <<TPA_1-U.104>=4> 
00000040 000BE AIPASHASK a 
aoe Se zipagianéeD <<OWPRO-U. 106>=2> 
7044 000C4 sipagtveé una F 
00000000* 000¢6 sPRSADDA 
U. my, £ LONG <<TPA_1-U.108>-4> 
00000080 O00CA ; TPASMASK 
0.109: .LONG 128 
saeee SES d.T40z00 WORD <<OWPRO-U.110>-2> 
15F6 00000 giPASTYPE a . 
0000* 000D2 ; TPASTARGET 
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003A 
0030 
15F6 
0000* 


7052 
00000000* 
00000100 
0000* 
7057 
00000000* 
00000200 
0000* 
7045 
00000000* 
00000400 
0000* 
7044 
00000000* 
00000800 
0000* 
15F6 
0000+ 


OO3A 
0030 
15F6 
0000+ 


00004 
00004 
00006 
00008 
QOODA 


00DC 
000C 


OO0DE 
000E2 
000E6 
000E8 
QOOEA 
OOOEE 
000F2 
000F4 
000F6 
OOOFA 
OOOFE 
00100 
00102 
00106 
0010A 
0010C 
0010€ 
00110 
00110 
00112 
00114 
00116 ; 


9 
1s Sep-19 8 
1er8ee= 138s §3:68;40 
U.112: .WORD 
;GRPR 
U.57: -BLKB 
: pagtvre 
U.113: WORD 
; TPASTYPE 
U.114: WORD 
Wty Hie 
U.115: WORD 
3 TPASTARGET 
U.116: WORD 
GRPRO: .BLKB 
; TPASTYP 
U.117: .WORD 
3; TPASADDR 
U.118: . LONG 
3; TPASMASK 
U.119: LONG 
3 TPASTARGET 
U.120: WORD 
s TPASTYPE 
U.121: WORD 
; TPASADD 
U.122: .LONG 
3 TPASMASK 
U.123: . LONG 
3 TPASTARGET 
U.124:  .WORD 
; TPASTYPE 
U.125: .WORD 
3; TPASADDR 
U.126: .LONG 
3; TPASMASK 
U.127: . LONG 
3; TPASTARGET 
U.128: .WORD 
; TPASTYPE 
U.129: . WORD 
3; TPASADD 
U.130: .LONG 
3; TPASMASK 
U.131: . LONG 
3; TPASTARGET 
U.132: WORD 
3; TPASTYPE 
U.133: WORD 
3; TPASTARGET 
U.134: WORD 
;WOPR 
U.65: -BLKB 
AT te 
U.135: WORD 
; TPASTYPE 
U.136:  .WORD 
On Ne 
U 13 WORD 
2 TPASTARGET 


<<U.71°U.112>-2> 
0 

58 

61 

5622 

icy ali 


28754 
<<TPA_1°U.118>=4> 
256 
<<GRPRO=-U.120>-2> 
28759 
<<TPA_1°U.122>=4> 
512 
<<GRPRO=U.124>=2> 
28741 
<<TPA_1°U.126>=4> 
1024 

<<GRPRO-U. 128>-2> 
28740 
<<TPA_1-U.130>=4> 
2048 

<<GRPRO-U. 132>-2> 
5622 
<<U.71°U.134>-2> 
0 


AX-11 Bliss-32 V 
CLIUTL.SRC JaCcMD 


BPRS 69251 


cr 


JBCCMDPRS 
v04-000 
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7052 
00000000* 
00001000 

0000+ 

7057 
00000000* 
00002000 

0000* 

7045 
00000000* 
00004000 

0000* 

7044 
00000000* 
00908000 

0000+ 

15F6 

0000* 


102¢ 
0000* 
157 
FFFF 


0000* 


9 
18-Sep-19 4 00:09:48 ight Bliss-32 ies e%2:1 


14-Sep-1984 


U.138: .WORD 
BY WOPRO: .BLKB 
118 ; TPASTYPE 
U.139: WORD 
OO11A gh: eae 
U.140: .LONG 
OO11E ; TPASMASK 
U.141: LONG 
00122 Nase gee 
U.142: WORD 
00124 pitagtvre 
U.143: WORD 
00126 ; TPASADDR 
U.144: . LONG 
0012A ; TPASMASK 
U.145: . LONG 
QO12E ; TPASTARGET 
U.146: WORD 
00130 ; TPASTYPE 
U.147: WORD 
00132 ; TPASADD 
U.148: .LONG 
00136 ; TPASMASK 
U.149:  .LONG 
0013A ; TPASTARGET 
U.150: .WORD 
0013C ; TPASTYPE 
U.151: .WORD 
0013E ; TPASADDR 
U.152: .LONG 
00142 ; TPASMASK 
U.153: .LONG 
00146 ; TPASTARGET 
U.154: .WORD 
00148 ; TPASTYPE 
U.155: .WORD 
QO14A ; TPASTARGET 
U.156: .WOR 
0014C ;ENDPRO 
U.71: -BLKB 
O014C ; TPASTYPE 
U.157: WORD 
QO14E ; TPASTARGET 
U.158: WORD 
00150 ; TPASTYPE 
U.159: . WORD 
00152 ; TPASTARGET 
U.160: .WORD 
-PSECT 


00000 MONE EVE): 
00000 ; TPASKEYO 


U.1: -BLKB 
00000 ; TPASKEY 
U.3: » WORD 


CLIUTL.SRCJJBCCMDPRS 


gu. 7a ee 
28754 
<<TPA_1-U.140>-4> 
4096 
<<WOPRO=U.142>=2> 
28759 
<<TPA_1°U.144>-4> 
8192 
<<WOPRO=U.146>=2> 
28741 
<<TPA_1*U.148>-4> 
16384 
<<WOPRO=-U.150>-2> 
28740 
<<TPA_1°U.152>=4> 
32768 
<<WOPRO-U.154>=2> 
5622 
<<U.71°U.156>-2> 
0 

4140 
<<NEXTPRO-U.158>-2> 
5623 


-1 
-LIBSKEYOS,NOWRT, SHR, PIC,1 


o 


0 
<U.2°U.1> 


Page 107. 
aa ie 


09 
JBCCRDERS Job Controller Command Parsing Utilities 1o=$e0= 138% 99: o3: : ge hy i $55 ze is 


tt INF I Kees : 


BLK 
00004 sTPASKEYD. me 

0000* 00004 ; TPASKEY. 
ot: = UORS <U.10-U.9> 3 


GO888 svne_xevsee” 
00008 rege 
00008 MASK_KEYS:: 
00008 gTRASKEYO 
0000* 00008 ; TPASKEY 


QOOOA : 
QOOOC OWNE_KEYS:: 


0000¢ ;TRASKEYO 
0000C PROT_KEYS:: 


0000C ; TPASKEYO 
U.34: .BLKB 
0000* 0000C U FPASKEY 
U.36: ~ WORD <U.35-U. 34> : 
0000* OOO0E ; TPASKEY 
U.44: «WORD <U.43-U.34> : 
0000* 00010 ; TPASKEY 
U.52: -WORD <U.51-U.34> : 


0000* 00012 ; TPASKEY 
U.60: eWORD <U.59-U.34> 3 
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U.22-U.21> ; 


o oO OF OF NA COCO CO CO Oo FN 


-EXTRN LIBSSTOP 
PSECT SUMMARY 
Bytes Attributes 


3869 NOVEC,.NOWRT, RD, EXE,NOSHR, LCL, CON, 
4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, CON, 

20 NOVEC.NOWRT, RD. EXE, SHR, LCL, REL. CON, 
340 NOVEC.NOWRT, RD, EXE, SHR, LCL, CON, 
48 NOVEC.NOWRT, RD. EXE, SHR, LCL, CON, 


Library Statistics 


oousuune Symbols -------- Pages Processing 
Total Loaded Percent Mapped Time 


JBECRDERS Job Controller Command Parsing Utilities 


>  $255SDUA SYSLIB £384 32:1 18619 115 
; Bettis $ Syst ie AMAC.L32;1 42 25 
; COMMAND QUALIFIERS 
; Size: 3855 code + 430 data bytes 

Run Time 01:37.7 


3; Elapsed Time: 05:00.5 
3 Lines/CPU Min: 1885 

3 ‘Cemeae Aah ae 40055 

3 peneey Used: 245 pages 
; Compilation Complete 


coo 3 
— 


; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$: JBCCMDPRS/OBJ=0BJ$:JBCCMDPRS MSRC$: JBCCMDPRS/UPDATE=(ENH$: JBCCMDPRS) 


004' AH-BT13A-SE 7 


EQUIPMENT CORPORATION 
NTIAL AND PROPRIETARY | 


F 


IG L 
VAX/VMS V4.0 ON E 


L EQUIPMENT CORPOR 


a vax ;yas va, ENTIAL AND PROPRIE 


VAX/VMS V4.0 


TION 
ARY . 


A 
= 


